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QUE EOCODIGO ASCII? 



USE NUMEROS EM VEZ 



DE CARACTERES 



UM PROGRAMA PARA CODIFICAR 
E DECODIFICAR MENSAGENS 




Conjunto de cddigos alfanumericos 

pad^oni^ados, o codigo ASCII 

foi Qoncebido com o objetivo de tornar 

possivel a transferencia de 

dados de um computador para outro. 



Cada tecla ou combina<;ao de tcclas 
do seu micro corresponde a um codigo 
eleironico deniro do compuiador. Em 
BASIC, codigos desse lipo sao represen- 
lados por valores decimals entre e 255. 



A letra A, por exemplo, tern o c6digo 
decimal 65, B e 66. e assim por diantc. 
Toda vcz que uma lelra ou palavra e di- 
giiada, o compuiador armazena os co- 
digos correspondenies. 

Os valores e caracleres corresponden- 
ies nao sao> porem, os mesmos em lo- 
dos OS computadores; mas felizmenle 
existe alguma padroniza^'ao no modo 
com que eles sao usados. 

Os valores de codigo sao referidos pe- 
la sigla ASCII (que vem de American 
Standard Code for Information Inter- 
change, ou seja, Codigo Padrao Ame- 
ricano para Troca de Informa^ao), Es- 



se c6digo foi moniado com o objetivo 
de possibilitar a transferencia de dados 
de um compuiador para ouiro, Os mi- 
cros TRS. MSX. Apple e Specirum cos- 
lumam emprega-lo, pelo menos em par- 
te. Apenaso ZX -81 temum codigo com- 
pletamente diferenle. 



CODIGO ASCII 



O conjunto complete de caracleres 
ASCII nao se apresenia do mesmo mo- 
do em todos os computadores, Mas ha 
semelhan^as entre os diversos conjun- 




los. A maior delas esia na faixa de 33 
a 90. que cobre as simbolos mais co- 
muns — pontua?ao, numeros e letras 
maiusculas. Existe um modo muilo sim- 
ples de descobrir o c6digo ASCN de um 
carac[ere: basta digitar PRINT ASC 
(''X") (ou PRINT CODE -'X" no Spec- 
trum). Voce lera. assim, o c6digo de X 
ou de qualquer cutro caraciere que for 
colocado em seu lugar. O proximo pro- 
grama facilila as coisas para voce: 

10 PRINT'DIGITE QUALQUER LETBA, 




NLTMERO OU CAHACTER" 
20 INPUT AS 

30 PRINT"0 CODIGO ASCII PARA 
AS;" E -:ASC(AS) 
40 GOTO 20 



No Spectrum, mude a linha 30 para: 

30 PRINT "0 CODIGO ASCII PAHA 
"lASi' E -jCODE AS 

O oposto de ASC on CODE e CHRS, 

que converte o numero de codigo para 
o caraciere correspondenie. O proximo 



programa converte lodos os codigos AS- 
CII de 33 a 90 em caracteres: 



[ji][^r>^ 



10 

a" 

20 
30 
40 
50 



PHINT'CODIGO ASC1I","CARACTE 



FOR K-33 TO 90 

PRINT N,CHRS(N)' 
FOR D-1 TO 500;NEXT D 
NEXT N 

As leiras minusculas estao na faixa dc 
97 a 122 e podem ser vistas mudando- 
seo liUimo numero da iinha 20 para 122, 
Ao substituirmos esle ultimo por 255, 



T 



-\ 



ii^femos uma visao do conjunto comple- 
te de caracleres. A listagem dos carac- 
teres e c<5digo:^ correspondemes cstd no 
manual do seu micro. 

No TRS-Color, os caracleres mimis' 
culos apareccrao na lela iguais aos 
maiusculos, s6 que invcnidos. A impres- 
sora ligada ao micro provavelmente in- 
terprctara esses caracteres como mitiiis- 
cuios de verdade. O TK-2000 nao pos- 
sui lepras mJmisculas, 



COMO USAR CiDIGO ASCII 



A vanlagem de se usar urn numero 
em lugar de uma letra e que -se podc 
altera-lo maternal icamenie de varias ma- 
neiras, Enlao, ao se imprimir o CHRS 
do novo numero, o que sc obtem e uma 
letra diferenle. Base para muitos progra- 
mas codificadores, essa possJbilidade de 
conversao e muilo inleressaiite, visio 
que nao se pode manipuJar uma lelra 
por meio dc regras mateniaticas, 

Cddigos simples apenas adicionam 
um valor constante a cada numern, de 
modo a fazer com que a letra '^viaje*' 
pelo alfabeto. Por exemplo. a letra A vi- 
1 ^^ raG, o B lorna-se H, etc, Um codi- 

^^^^^ go desse tipo e tao facii de mon- 
•i^^^^^^ tar quanio dedecitVar. Asstmn 
l|^^^^v um programa bem simples po- 
^^^V de lentar as 26 combinagoe-s 
^^^^ possiveis; um rapido exame 

^r. deierminara qual dessas combi- 

Bsr nagoes c a correta. 

T Para ser ulil, conludo, o programa 
/ deve fazer coisas mais complicadas. O 
programa abaixo, por exempio, usa uma 
palavra de codigo que funciona como 
chavc. Assim, cada leira da mensagem 
e modificada de uma forma diferente- 
Muilo mais dificiJ de ser decifrado, es- 
se codigo exige que se conhe^a a pala- 
vra-chave. 



10 POKE 2365a. St LET CP-0: 

LET PM-0: LET DS-"" 

20 CL5 

30 INPUT "QUAL E A SENHA7 ' : 

LINE CS 

40 PRINT "INTRODUZA A MENSAGE 

M " 

50 INPUT LINE MS 

60 LET CP-CPfl; IF CP>LEN CS 

THEN LET CP"1 

70 LET PM-PM+1 

BO IF PM>LEN MS THEN GOTO 

200 

90 LET FS-MStPM) 
100 IF F$<"A'' OB F$>"Z" THEN 
GOTO 150 
110 LET F-CODE FS+CODE CStCP)- 

65 



1?0 IF F>90 THEN LET F-F-26 

130 LET DS-DS+CHHS F 

140 GOTO 60 

150 IF FS<'"0- OH FS>''9'" THEN 

LET D3-DS+FS: GOTO 70 

160 LET F-CODE FS+CODE CS (CP) - 

48 

170 IF F>57 THEN LET F-F-10: 

GOTO 170 

180 LET DS-DS+CHRS F 

190 GOTO 60 

200 PRINT '"A MENSAGEM CODIFIC 

ADA E :" 

210 PRINT 'DS 

220 STOP 



QQ 



ID CLEAR 300 

ZO CLS 

30 LINEINPUT"QUAL E A SENHAT'lC 

S 

40 PRINT"INTBODUZA A MENSAGEM" 

50 LINEINPUT MSS 

60 CP-CP+1:IF CP>LEN(CS)THEN CP 

= 1 

70 PM-PM+1 

80 IF PM>LEN(HS$)THEN 200 

90 FS-rtIDS(M35,PM,l) 

100 IF F$<"A'' OR F5>''Z'' THEN 15 



110 F-ASC(FS)+ASCCMIDS{CS.CP,1] 

)-65 

120 IF F>90 THEN F-F-26 

130 CD3-CD3+CHR$(F) 

140 GOTO 60 

150 IF F5<"0'' OB F3>"9- THEN CD 

S-CD$+F$:G0TO 70 

160 F-ASCCF$)+ASCtMIDSCCS,CP,l) 

)-4e 

170 IF F>57 THEN F-F-10:GOTO 17 



180 CD3-CDS+CHRS(F) 

190 GOTO 60 

ZOO PRINT :PBINT"A MENSAGEM CODI 

FICADA E: " 

210 PRINT:PHINT CDS 

220 END 



\S]{^ 



10 HOME 

30 INPUT "Palavra chavt? ";CS 

40 PRINT "DiQite a wenBagGio;" 

50 INPUT MSS 

60 CP - CP + 1 : IF CP > LEN (C 

S) THEM CP = 1 

70 PM - PM + 1 

SO IF PM > LEN (MSS) THEN 200 

90 F$ * MIDS (rtSS.PM.l) 

100 IF F$ < "A" OR FS > "Z" TH 

EN 150 

110 F = ASC (FS) + ASC ( MID3 

(CSpCP,1)) - 65 
120 IF F > 90 THEN F '^ F - 26 
130 CDS - CDS + CHRS (FJ 
140 GOTO 60 

150 IF FS < "0* OB FS > "9" TH 
EN CDS - CDS + FS: GOTO 70 
160 F ' ASC (FS) + ASC ( MIDS 

(CS.CP.D) - 48 



170 IF F > 57 THEN F = F - 10: 

GOTO 170 
180 CDS = CDS + CHB3 (F) 
190 GOTO 60 

200 PRINT : PRINT "A mcnuaoein 
codificdda e: " 
210 PRINT : PRINT CDS 
220 END 



m 



ZO CLS 

30 LJNEINPUT"Palavra de cddioo? 
":C$ 

40 PRINT^Digi te a mensagen: " 

SO LINEINPUT MSS 

60 CP=CP+1 :IFCP>LEN(CSlTHENCP'l 

70 PM-PM+1 

QO IFPM>LEN(MSS)THEN20n 

90 FS^MJDS(MSS,PM,1J 

100 IFF3<-A"'OBFS>"Z''THEN150 

110 F=ASC(FS)+ASCIMTDS(CS,CP,1) 

)-65 

120 lFF>90THENF-F-26 

130 CDS^CDS+CHRS(F) 

140 GOTO60 

150 IFFS<"0''0BF5>"9''THENCD5=CDS 

+FStGOTO70 

160 F''ASC(FS)+ASCCMIDS(CS.CP,1) 

)-48 

170 IFF>5;tHENF-F-10:GOT0170 

ISO CD5=CDS+CHRS(F) 

190 GOT060 

200 PRINT:PRINT"A menaaaen codi 

Eicada e: " 

210 PRrNT:PBlNTCDS 

220 END 

Depots de pedir que sejam digitadas 
a palavra-chave e a mensagem, o pro- 
grama faz a codificagao, mostrando-a 
na Ida. A men^iagcm ficar^ eniao pre- 
servada (ou seja, somi^nie alguem que 
conhega o c6digo podera decifra-la), 

O modo como isso funciona e basian- 
te simples, assemelhando-se muiio ao 
metodo descriio anieriormente. A dife- 
reni;a esia no Tato de que. em vez de adi- 
cionar um valor fixo a cada letra, o cd- 
digo ASCII da primcira Icira da palavra- 
chave e acresceniado a primeira letra da 
mensagem; a vegunda letra da palavra- 
chave e adicionada a segunda da men- 
sagem, e assim por diante, Quando o 
rim da palavra-codigo e cncontrado, o 
cicio recome<;a. 

Se o resuliado de algumas das adi^oe^ 
for maior do que 90 {o que signiHca que 
a letra correspondente ficara sJtuada 
alemdoZJ, devemossubiraJr26, demo- 
do alrazer o caraclere para deniro do 
alfabeio- Os numeros sao manipulados 
separadamenie nas lirhas 150 a ISO pa- 
ra manter o codigo entre 48 e 57, que 
corresponde a e 9. 

O programa decodificador i muito 
^emclhante ao primeiro^ diferindo ape- 
nas em alguns sinais + e - que foram 
mudados, alem de certos vaJores. Os nu-i 
meros das linhas nao coincidem; assim J 



pode-se usar o programa combinado 
com o anterior. Algunias linhas forani 
L'oiocadas de modu que se possa esco- 
llier enlre codificar e decodificar uma 
mensagem, 

Se voce esta familiarizado com os co- 
mandos de rcmunera<;ao e edit^So de li- 
nhas do seu compulador. leme usa-los 
para transformar o programa anterior 
no programa que aprcsenlamos agora. 
Depois, junte-os (MERGE). 



12 INPUT ' CC)ODIFICAR OU (D) E 
C0D1FICAR7"; LINE AS 
14 IF A$-'D- THEN GOTO 400 
16 IF ASO'C THEN GOTO 12 
400 CLS 

410 INPUT "QUAL E A SEMHA? "; 

LINE C$ 

420 PRINT "INTRODUZA A MENSAGE 

M CODIFICADA ' 

430 INPUT LINE MS 

440 LET CP=CP+1: IF CP>LEN CS 

THEN LET CP-1 

450 LET PM=PM+1 

460 IF PM>LEN MS THEN GOTO 

580 

470 LET FS-M$(PW) 

480 IF FS<'"A" OH FS>"Z' THEN 

GOTO 530 

490 LET F-CODE F3-C0DE C5tCP)+ 

65 

500 IF F<65 THEN LET r-F+26 

510 LET D3-DS^CHH$ F 

520 GOTO 440 

530 IF F5<"0"' OB FS>''9" THEN 

LET DS-DS+FS- GOTO 450 

540 LET F-CODE FS-CODE C$(CP)+ 

4S 

550 IF F<4e THEN LET F-F+10: 

GOTO 550 

560 LET DS-DS+CHRS F 

5 70 GOTO 440 

580 PRINT ""A MENSAGEM DECODIF 

ICADA E ' 

590 PRINT 'DS 

600 STOP 



DQ 
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12 INPUT (C)ODIFICAB OU (D) ECOD 

IFICARPRINT;A$ 

14 IF AS-'D' THEN GOTO 400 

16 IF ASO'C- THEN GOTO 12 

400 CLS 

410 LINEINPUT-QUAL E A SENHA?" ; 

CS 

420 PRINT" INTRODUZA A MENSAGEM 

CODIFICADA" 

430 LINEINPUT MS5 

440 CP-CP+1:IF CP>LEN(C3) THEN 

CP-1 

450 PM-PM+1 

460 IF PM>LEN(n5S;THEN 580 

470 F9-MIDS(MS3.PM,1) 

480 IF FS<"A" OR ¥B>'Z' THEN 53 



490 F-ASC(FS)-ASC(MIDS(C$.CP,1) 

)+65 

500 IF F<65 THEN F-F+26 




TOCftAmCAOBA 




510 CDS-CDS+CHBSCF) 

520 GOTO 440 

530 IF FS<"0" on FS>"9'' THEN CD 

g-CD3+F$:GOTO 450 

540 F-ASC{FS)-ASC(MIDS(CS.CP.l) 

)+4B 

550 IF F<48 THEN F-F+10:GOTO 55 



560 CDS-CDS+CHfiS<F) 

570 GOTO 440 

580 PBINT"A MENSAGEM DECODIFICA 

DA E: " 

S90 PRINTrPPTNT CDS 

600 END 



[SE 



12 INPUT "[Clodificar ou tDlec 
odif icar " ;AS 

14 IF A3 - -D" THEN 410 

16 IF A5 < > "C" THEN 12 

400 HOHE 

410 INPUT "Palavra chave? " ;C$ 

420 PEIINT "Digite A menB^gen:" 

430 INPUT MS3 

440 CP - CP + 1 : IF CP > LEN ( 

C$) THEN CP - 1 

450 PM = PM + 1 

460 IF PM > LEM (rtS3] THEN 56 



470 FS = MID3 (MSS.PMa) 

4B0 IF FS < "A" OH FS > "Z" TH 

EN 530 

490 F " ASC (F$) - ASC ( MIDS 

(CS,CP, 1) J + 6S 
500 IF F < 65 THEN F = F + 26 
510 CDS = CDS ■*■ CHRS (F) 
520 GOTO 440 

530 IF F5 < "0" OR FS > "9* TH 
EN CDS = CDS + F5: GOTO 450 
540 F - ASC (F5> - ASC { MlDS 

(CS^CP.D) + 48 
550 IF F <L 48 THEN F = F + 10 t 

GOTO 550 
560 CDS - CDS + CHRS iF) 
570 GOTO 440 

580 PPINT : PRINT 'A nensageD 
decodificada er ' 
590 PPINT : PfiTNT CDS 
600 END 



f^ 



12 INPUT" (C)odificar ou fD}ecDd 
if icar? " iAS 
14 IF A$-"D-THEN400 
16 IF A5<>''C"THEN12 
400 CLS 

410 LINEINPUT'-Palavra de cOdigo 
7 "jCS 

420 PPINT"Digite a nensagen:' 
430 LINEINPUT M3S 
440 CP-CP+1 :IFCP>LEN{C5)THENCP- 
l 

4 50 PM-PM+1 

160 IFPM>LEM(«SS)THEN580 
470 FS-MIDStMS$,PM,l) 
480 TFF5<"A"OnFS>-2"THEN530 
490 F=ASC(FS)-ASC(MIDS(C3,Ct,l) 



i. 



J +65 

500 IFF<65TaENF=F+26 

510 CD5-CD3+CHRSCF) 

520 GOT0440 

530 IFFS<"0''ORFS>"9"THENCDS = CDS 

+FS-GOTO450 

540 F-ASC(FSJ-A3CCMIDS<CS,CP,1) 

)+48 

550 lFF<4aTHENF-F+10:GOTO550 

560 CDS-CDS+CHHS (F) 

570 GOTO'140 

580 PBINT:PPINT*A mensagem deco 

dif icada 4: " 

590 PRINT :PniNTCD$ 

600 END 

Se voce quer que seu c6digo seja 
realmente indecif ravel, codifique a men- 
sagem usando uma segunda palavra- 
chave. Desse modo, ele se lornara a pro- 
va de espioes. Mas tenha o cuidado de 
nao trocar a ordem das duas palavras- 
chave na hora de decodificar. Do con- 
trario. voce podera causar uma confu- 
sao monumemal. 



COMPARACOES 



Uma das fun^oes mais imponantes 
do codigo ASCII consiste em facililara 
compara^ao de palavras (veja pagina 
241 e seguinies). 

Essa operacao 6 feiia lelra por Icira 
pelo compuiador. 

Suponhamos, por exeniplo, que se 
queira comparar as palavras COSMO- 
NAUTA e COSMOPOLITA. O com- 
putador comegard confrontando os dois 
C; em seguida, elc passara sucessiva- 
mente para os dots O, os dois S, os dois 
M. OS dois O. ate chegar ao N e ao P. 

Vale Icmbrar que o que esta sendo 
comparado nao sao posipoes aifabeticas 
arbitrdrias, mas os codigos ASCII de ca- 
da car act ere, 

Como P tern um valor ASCII maior 
que N, nesta comparagao, a palavra 
COSMOPOLITA tern um valor maior 
do que a expressao COSMONAUTA, 
Note que nem a soma dos codigos nem 
o numero de letras sao levados cm 
conta. 

Cada leira e comparada individual- 
mente com a sua correspondentc (para 
um aprofundamenlo do cema, veja ou- 
iros exemplos de compara<;5es de pala- 
vras e cordoes no ariigo Cadeia de Ca- 
raaeres, pagina 241), 

A seguir, apresentamos alguns exem- 
pJos de compara*;oes de varios valores 
possiveis para A5 e BS, junlamenie com 
OS cfidigos ASCII envolvidos. E impor- 
lante comparar os valores do c6digo de 
cada caractereaos pares: o primeiroca- 
ractcre de AS com o primeiro de BS e 

Iassim por dianle, ale o fim da palavra 
mais curta. 



AS ASCII BS ASCII RELACAO 

ABC 65.66,67 ABC 65,66.67 AS=B$ 

ABD 65.66.68 ABCD 65.66,67 AS> B$ 

ABD 65,66.68 ABCD 65.66,67 

ASoBS 

ABC 65,66.67 Abe 65,97.98 A5<BS 

COSMl 67.79,83 COSMO 67.79.83 

A$<B$ 

77.73 77.79 

$1 36,49 $1.0 36,49,46 A$<B$ 

Note que no segundo € terceiro exem- 
plos e possivel escrever a rela^ao de va- 
rias maneiras. No uhimo exemplo, co- 
mo todos OS caracleres sao iguais, a pa- 
lavra mais lotiga e a de maior valor. 



VERIFIQUE AS EI^TRADAS 



As funpoes ASC c CODE funcionam 
apenas no primeiro caraclere de uma va- 
riavel alfanumerica. Assim. PRINT 
ASC (' BRASIL") " ou PRINT CO- 
nt "BRASIL", no Spectrum — mos- 
Irari 65. o c6digo de B. Isio e muito util 
para se checar comandos INPUT do 
programa. Veja. por exemplo, o progra- 
ma anterior, A linha 12 pede que voce 
digiie um "C" para codificar. ou um 
'*D'' para dccodlficar. As duas iinhas 
seguintes direcionam o programa da lor- 
ma adequada. Mas, para cvitar que o 
compuiador nao accite as entradas CO- 
DIFICAR ou DECODIFICAR. escriias 
por exienso, pode-se reescrever as Iinhas 
14 e 16 como se segue: 



QD 



^^HIE] 



14 IF ASC (AS) -68 THEN GOTO 400 
16 IF ASC(AS)<>67 THEN GOTO 12 



14 IF CODE AS-60 THEN GOTO 

400 

16 IF CODE AS067 THEN GOTO 

12 



CODIGOS DECONTflOLE 



Alguns codigos ASCII nao lem ca- 
racieres associados. Quando voctf tecla 
<ENTER> ou <RETURN> o micro 
identifica o valor 13; mas, em vez de im- 
primir um caractere na tela, o cursor e 
colocado no inicio da linha seguinie; ou, 
como acontece no Spectrum, o progra- 
ma e lislado. O c6digo 1 3 e chamado de 
c6digo de retorno do carro {Carriage 
Return; dnio <CR> dos modelos Ap- 
ple). Experimente colocar no compuia- 
dor PRINT "A"; CHRS (13); "B". O 
"B" seri imprcsso na linha abaixo do 



Este programa permite ver os c6di- 
gos de conlTole: 



10 PRINT CODE INKEYS 
20 GOTO 10 



aarh^ 



b A5-INKEyS:IF AS-"" THEN 5 
10 PRINT ASC(A$) 
20 GOTO 10 



HDE 



5 GET AS 

in PRINT AaC (AS) 

20 GOTO 5 

Tenteicclar < ENTER > ou <ESC> 

ou pressionar a tecla de retrocesso, ou 
qualquer oulra do leclado, sozinha ou 
simullaneamenie com < SHIFT > ou 
<CTRL>. ev;idescobrindo OS codigos 
que seu micro utiliza. 

Alguns computadores usam mais es- 
ses codigos do que outros, AHnal, exis- 
lem muiios numeros disponiveis entre 
e 31 e alguns acima de 90, Tais codigos 
Toram originalmenie definidos quando 
OS compuladores trabalhavani apenas 
com as antigas impressoras, Aiualmen- 
le, o compuiador e ligado a um televi^ 
sor ou monitor de video e muitos des- 
scs cddigos lomaram-se obsolcios. 



O Spectrum teve muitos de seus an- 
lifios codigos rcdefinidos, de forma a 
irabalhar com a tela de TV. A inslru- 
vao PAPER lem c6digo 17 e INK,^ 16. 
Assim. para escrever a palavra "TITU- 
LO" em vermelho sobre fundo verde. 
e preciso digilar o seguinte: 
10 LET AS-CHRS 17+CHRS 4+CHRS 
16+CHBS 2+"TITUL0- 
20 PRINT AS 

Usado muiias vezes em um progra- 
ma, esse cabe^alho precisa ser definido 
apenas uma vez. Sempre que se quiser 
usa-lo basta digitar PRINT A$- 



ai 



O Apple fambcm usa caracteres de 
controle, tanto a nivel operacional co- 
mo a nivel de programas. Assim. voce 
dcve conhecer muito bem o CTRL-S. o 
CTRL-C ou o CTRL-D, Nesse compu- 
iador, OS cddigos dos caraciercs de con- 
trole de CTRL-A ate CTRL-Z ocupam 
OS numeros de 1 a 26. Desta forma, 
CHR$ 0) equivale a CTRL-A: CHRS 
(2), aCTRL-B, etc 
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oquesaooscOdigos 



DECONTROLE 



COMO UTILIZAiOS 



EM PROGRAMAS BASIC 



MENSAGENS COM SONS 



Muito uteis para uma s^rie de truques 
de programagao. os c6digos 
de controle ocupam o espaqo que vaj 
de a 31 no c6digo ASCIf. 
Aprenda a us^-los nos micros MSX. 



Os cbdigos de controle correspon- 
dem, na maioria dos microcomputado- 
res, aos niimeros entre e 31 no sisie- 
ma ASCII, e servem para realizar uma 
seriede funi;oes relacionadas principal- 
mente com o controle do video. Em ar- 
tigos anleriores desta serie, mostramos 
como OS diferentes fabricantes de micros 
aproveitam a fabta decodigos deOa 31 
para implementar essas funt^oes de con- 
trole, Ao contrario do espa^o de c6di- 
go ASCII que vai de 32 em dlante, nao 
ha nessa faixa qualquer padroniza^ao 
entre os diversos modelos de computa- 
dores. Vejamos agora como os usuarios 
de micros da linha MSX podem explo- 
rar os seus codigos de controle. 



A FUNCAO CHRS 



Embora o MSX disponKa de uma te- 
da < CONTROL > , que serve para ge- 
rar on c6djgos de a 31 (por exemplo» 
pressionando-se as leclas < CON- 
TROL > e < A > simultaneamente 
obtim-se o c6digo 1), um programa BA- 
SIC so pode acionar os codigos de con- 
Irole por inierm^dio da fun^ao CHRS 
(abreviaiura de character). Essa fun^ao 
permilie converter um c6digo numerico 
inteiro entre e 255 em seu caractere 
correspondente. Por exemplo, PRINT 
CHRS (65) escrevera na tela a letra A. 
Usando o PRINT CHRS dessa for- 
ma, podemos controlar divcrsas fun^oes 
do Video, por meio dos cbdigos de a 
31. A seguir, apresentamos os c6digos 
que proporcionam os efeitos mais inte- 
ressantes no MSX: 
I ' determina caractere grafico 

7 - aciona o alarma sonoro 

8 - apaga o caractere antes do cursor 

9 - tabula 

10 - pula uma linha (LINEFEED) 
U - coloca o cursor na posicao 1,1 
(HOME) 



12 ' equivalc ao CLS 

13 ' retorno de carro (RETURN). 

Ao contrdrio dos c6digos ASCII de 
32 em dianie, a fun?ao CHRS associa- 
da aos codigos de a 3 1 nao imprime 
qualquer caractere visivel na tela, cau- 
sando apenas um efeito imediato. 

O programs a seguir mostra uma 
aplicai^ao inieressanie dos codigos de 
controle, Eie esla estruiurado de tal mo- 
do que, toda vez que uma mensagem de 
erro for moslrada na tela, o computa- 
dor acionara o alarma sonoro intemo 
(bipe) e pulard uma linha em branco an- 
tes da mensagem. Em vez de repetir a 
mesma seqiiencla de comandos para ca- 
da mensagem de erro, definimos uma 
variavel C$, que coniem os codigos 7 e 
10. Depois, basta usar o PRINT da 
mensagem, precedendo-a com essa va- 
riavel. 

10 C3"CHR3(10)+CHR$ (7)+-*"* ERB 
0: " 

20 CLS-PBINT "Cdlculo da ran q 
uadrada" 
30 PBINT 
35 X5-"" 

40 LINE INPUT "ENTRE UM NIHIERO : 
-;X$ 

45 IF XS-'" THEN END 
50 X-UAL(X5) 

60 IF X-0 THEN PRIMT C$;"Entrad 
a deve aer um nanero" tGOTO 40 
70 IF X<0 THEN PRINT C$;"Numero 
deve aer maior do que iero":GO 
TO 40 
SO PRINT 

90 PRINT "A raiz quadrada de":X 
•^"6 iguaL a'';SQR(Xl 
100 PBINT 
HO GOTO 40 



COMO PASSEAR PELO VIDEO 



Outra aplicacao inieressanie dos co- 
digos de controle e a manipulagao do 
cursor de texto. Assim, os cddigos 28 a 
31 movimentann o cursor da seguinte 
maneira: 

28 ■ move o cursor para a direita 

29 - move o cursor para a esquerda 

30 - move o cursor para cima 

31 - move o cursor para baixo. 

Um pequeno programs, que iluslra 
bem o uso destcs c6digos e mostrado a 
seguir: 



5 CLS 

10 LOCATE 10,15 

20 FOR I-^l TO 1000 

30 R"tNT(RND(l)*4) 

35 PBINT CHRaCZS-^R) ;' 

) ; 

40 NEXT I 



'; CHRS (29 



Este e um curtissimo exemplo do cha- 
mado *'passeio aleat6rio em duas di- 
mcnsoes". Com aexecutao do progra- 
ma, o cursor passara a se deslocar pela 
tela nas quatro dire<joes possiveis. 

As linhas 5 e 10 limpam a tela e co- 
locam o cursor em seu centro, O la^o 
que vai das linhas 20 a 40 coloca 1 000 
pontos aleatoriamente na tela, A linha 
30 sorteia um numero entre e 3. A li- 
nha 35 movimenta o cursor com a aju- 
da da fun<;ao CHR$(28 -i-R) (que gera 
um numero entre 28 c 3 1 ), imprime um 
ponto e recua o cursor de novo com a 
funcao CHR$(29). 



A TECLA DE COMTROLE 



Como foi cxplicado, atecia < CON- 
TROL > serve apenas para acionar os 
c6digos de conirole diretamente a par- 
tir do teclado (ou seja, nao e possivel 
'^enxertar'' codigos dc controle dentro 
de mensagens entre aspas, como e feito 
com OS micros da linha Apple). Por ou- 
tro lado, diversas teclas ja extstentes no 
MSX para [impeza de tela, controle do 
cursor, etc, sao duplicadas por uma com- 
binacao de < CONTROL > com outra 
tecla. Por exemplo, < CONTROL > 
<I> avan^a uma posig^o de tabula^ao 
na tela, e equivale a tecia <TAB>, 

Enlretanto, algumas fungoes — co- 
mo o apagamento total ou parcial de 
uma linha, o avango do cursor ate a pa- 
lavra seguinte, etc, — nao tem teclas 
correspondentes. e podem ser u&adas 
com vantagem na edii;ao de programas. 

Para gerar um codigo de controle por 
meio da tecia < CONTROL >. basia 
lembrar-se da seguinte rela^ao: o codi- 
go 1 corresponde k letra'A, o codigo 2 
cdrresponde ^ letra B, e assim por dian- 
le. Por exemplo, para fazer o cursor des- 
cer uma linha (caraaere de controle cha- 
mado LINEFEED, LF, ou *'alimenta- 
tao de linha"), basta pressionar conjun- 
tamente as leclas <CONTROL> e J. 
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Pratique tiro ao alvo, ca^ando patos 
... no computador. Mas, na vida 
real, respeite o direito dos bichirhos 
^ existSncia, deixando-os 
saborear os doces frutos da liberdade. 



Se VOC& leu o aitigo anterior de Pro- 
^rama^ao de Jogos, ja deve ter grava- 
do em fiia o programa que movimenla 
uma al^a de mlra pela tela com auxilio 
do joystick. No enianto, embora seja in- 
!eressanie ver como se faz isso em BA- 
SIC, o programa nao lera mui(o senti- 
do se nao hoiiver um alvo. 

Agora, mostraremos como incluir a 
sub-rotina de controle do joysiick cm 
programas de jogos. Isso e feito acres- 
centando-se ao programa original os 
subprogramas , apresentados a seguir. 
Dessa forma, obieremos um jogo dc ti- 
ro ao pato. 

Um de cada vcz, dez paios aparccc- 
rao por um breve momento na tela, O 
objcnvo do jogo e alvcja-los antes que 
eles desaparei^am. A contagem de pon- 
los depende da vctocidade c da ponta- 
ria do jogador; a cada tiro perdido sao 
desconlados alguns ponios. A esse dcs- 
conto daremos o riome de mulla, 

Carreguc ou digitc o programa ante- 
rior no computador e acrescenlc as H- 
nhas a scguir (cvidcntcmenlc, cstas va- 
riarao de acordo com o tipo de compu- 
tador ao qual cstao dcstinadas). 



Acrescenie as prdximas linhas ao pro- 
grama que movimcnta o joystick. 

120 LET hB-0 

125 LET 1-0: PHINT PAPER 2i 

INK 7;' SCORE-;TAB 14;"R£C0RDE 

MAB 31;" " 

135 PRINT PAPER 3i OVER OiAT 

0.23; ha 

145 LET e-0 

150 FOR n-1 TO 10 

160 LET dX-INT <RKD«3ll 

170 LET dy-INT (RND*20)+1 

180 PRINT INK 6;AT dy,dx;CHRS 

144:CHHS 145;AT dy+l .dXiCHRS 

146;CHB$ 147 

190 POKE 23672,0: POKE 23673,0 

205 PRINT OVER 0; PAPER 3jAT 

0.8;fl:- " 

210 IF l<>48 THEN GOTO 400 

220 IF ATTR fy,x)-14 AND ATTR 

(y+l.x+l)-14 THEN LET a-B+260 

-(PEEK 23672): SOUND .02.30; 

GOTO 410 

230 LET s-a-20: LET l-O 

400 IF PEEK 23572+2b6'PEEK 

23673<240 THEN GOTO 200 

410 PRINT INK 7;AT dy.dx;CHP5 



LET h3-3 
: PAPER 3; AT 



144;CHRS 145:AT dy+1 ,dic;CHR$ 

146iCHR3 147 

420 NEXT n 

430 IF 3>hfl THEN 

440 PRINT OVEB 

0.8;a;AT 0,23;hs 

450 PRINT OVEfi 0; PAPER 3j 

FLASH liAT 10.2;"OUALQUER TECL 

A PARA RECOMECAR' 

460 FOR n-l TO 100; NEXT r 

470 IF INKEY$-"" THEN GOTO 

470 

480 CLS '. GOTO 125 

A^ linhas 120, 125 e 135 cuidam da 
contagem de pontos. Como o jogo ape- 
nas comecou. o recorde do momento e 
zero; ele^ moslrado junto com o score- 
A variavel i, de entrada do joysiick, 
tambem torna-se zero. 
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CQMO SABER SEQBOTAQ DO 

JOYSTICK FOI PRESSIONADQ 

CQMO SABER SE TIRO 

ATINGIUOALVQ 

CONTE PONTOS E RECORDES 



O la<;o FOR.. . NEXT enire as linhas 
1 50 e 420 coloca na tela uma serJe de dez 
palos que o jogador Icnlard aceriar, A 
cada volla do lai;o, as linhas 160 e 170 
escolhem uma nova posi<;ao para o pa- 
o. A linha ISO coloca a ave na tela, im- 
primindo os quairo caracieres (UDG) 
que formam o desenho, 

A linha 190 coloca o valor zero no 
coniador dc icnipo. Este sera usado pa- 
ra medir os iegundos que o palo perma- 
necera na tela. Quando esse tempo se es- 
gotar, o palo serd desenhado em outra 
pofsis^ao. 

Dcpois que o programa relornar da 

sub-rotina de controle do joystick » 

a linha 205 apagara o primeiro 

caraclere do score. Eiita e uma 

precaugao para quando o score esti- 
ver diminuindo; assim, nenhuma parte 
do score anierior permanecera na tela. 

O joystick do Atari tern um botao pa- 
ra atirar; quando acionado, esse boiao 
envia ao compurador o caractere de co- 
digo 48, A linha 210 delecta o tiro, mas 
so com a mira parada. £ possivel vcri- 
ficar sc foi dado um tiro com a mira em 
movimento, mas isto ocuparia mais qaa- 
tro comandos H — um para cada dire- 
gao. Nao e aconselhavel fazer hso em 
BASIC porque diminuiriamos a veloci- 
dade do programa. 

Caso um tiro tenha sido disparado, 
o programa verificara se o paio foi aiin- 
gido. usando ATTR na linha 220. 
ATTR verifica a cor de deierminada 
porgao da tela, Se a cor for a do paio, 
o tiro sera cjnsiderado certeiro, e o jo- 
gador ganhara ponton > O calculo de^sc:^ 
ponios e baseado no tempo gasio pelo 
jogador para acertar o pato. Cada liro 
bem-sucedido e anunciado por um bJp 
do computador. 
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Se ATTR nao fornecer a cor do pa- 
lo, o programa continuara na linha 230, 
ondc uma multa de vinle pontos seri 
subtraida do total, e o valor de i, igua- 
lado a zero para que a multa nao seja 
cobrada novamente (o que so acontece- 
ra quando oulro tiro for desperdi^ado). 
A linha 400 vcrifica se o limite de tem- 
po Foi ultrapassado, saltando para a li- 
nha 200, se isto ainda nao liver aconte- 
cido. Caso mais de cinco segundos te- 
nham se passado, a linha 410 fario pa- 
to desaparecer, 

Depois que os dez patos forem colo- 
cados na tela, o programa alcan^ara a 



linha 430, que fara a compara<;ao enire 
o score do jogadoreo recordeatual. Se 
for o caso, o recorde sera atualizado. O 
recorde e o score sao mosirados pcia li- 
nha 440. O programa lermina com a fra- 
se usual: *'Qualquer tecia para re- 
comegar". 

O nivel de dificuldade do jogo pode 
ser alterado modificando-se, na linha 
400, o limite de tempo que o jogador 
tern para acertar o pato. Valores com- 
pativeis para a conquista de pontos e pa- 
ra a multa dcvem ser colocados nas li- 
nhas 220 e 230. 



Nao ha programa de tiro ao pato pa- 
ra o ZX-81, mas as modificatoesque se 
segucm permilirao que voce movimen- 
te o monstro do programa da pagina 3 16 
usando o joystick. O boiao do joystick 
provoca a inversao da tela (voce deve 
usar a versao completa do programa), 

115 LET A-CODE A$ 

120 IF A-33 AND X>0 THEN LET X- 

X-1 

130 IF A-36 AMD X<28 THEN LET X 

-X+1 

140 IF A- 35 AND Y>0 THEN LET Y- 

Y-l 

150 IF A- 34 AND Y<20 THEN LET Y 

-y+1 

155 IF A-2B THEN RAND USR 16606 




28 e o codigo enviado ao compulador 
pelo botao do joystick- 



m 



O pragrama do MSX e completado 
pelas seguintes linhas e modificagoes, 

10 SCREEN 1,2:KEV OFF : COLOR 15, 

l.IO:ft-RND{-TIKE) 

20 FOR r-1 TO 6A 

55 SPRTTES(t)-BlGHTS{*LS,32> 

70 FOP 1-4 TO 10 

80 VPOKE BASE(6)+I. 15*16+1 

90 NEXT 

100 yPOKE BASE(6)+30. 1*16+1 

105 VPOKE BASEr(6)+3l,e*16+6 

110 CLS:STRIG(1) ON^SC-0 

120 G03UB 4000 

130 FOR I-O TO 32:VPOKE BASE(5) 

+I,255:NEXT 

140 FOB 1=1 TO 22:UPOKE BA3E(5} 

+31+1*32, 255:VP0KE BASE(5)+32+I 

*32.255:NEXT 

150 FOR 1-0 TO 31:UP0KE BASE(5) 

+23*32+1. 255:MEXT 

160 GOSUB 3000 

160 D=10 

190 TIHE^O 

210 PUT SPRITE l,{DX,Dy),10 

220 ON STRTG GOSUB 2000,2000.20 

00,2000. 2000:TF D<1 THEN 250 

2.10 IF TIME<50'0 THEN 200 

240 D=D-1:IF D>0 THEN GOSUB 300 

0:GOTO 190 

250 GOSUB 4000 

260 FOR 1=257 TO 2B6:VPOKE BASE 

(5)*^I,245:NEXT 

2B0 LOCATE 1 . 2 : PRINT "QUER JOGA 

R NOVAHENTE (S/N) ?" 

290 A3"INKEYS^IF ASO'S" AND AS 

O-N" THEN 290 

300 IF AS-'S" THEN 110 

310 SCREEN 0:COLOR 15.4,4^END 

2000 IF ABS(X-DX)>1 AND ABS (¥-D 

YJ>1 THEN 2070 

2010 PUT SPRITE l.(DX,209} 

2020 PLAY "T25506CL32EG'' 

2030 GOSUB 3000 

2040 SC-SC+550-TIME:GOSUB 4000 

2050 D-D-l^TIME-0 

2060 RETURN 

2070 PLAY "T25501DDE" 

2080 SC-SC-25: GOSUB 4000 

2090 RETURN 

3000 DX-INT[HND(l)*22O+10) :DY-I 

NTtRNDCl)''145+25) iHETURN 

4000 FOR I»33 TO 62:VPOKE BASE ( 

5)+I,245;NEXT 



4010 LOCATE , 1 : PRINT "SCORE:"; 

! LOCATE 7.1:PRINTSC: 

4020 IF SOHI THEN HI-SC 

4030 LOCATE 14 . 1 : PRINT "RECORDE 

:";: LOCATE 24.1 -.PRINT HI; 

4040 RETURN 

5000 DATA 3 . 12 . 16 , 32 . 3 

2 . 64 . 64 . 127 . 64 . 64 . 3 

2 , 32 , 16 , 12 . 3 , . 224 

, 152 . 132 . 130 . 130 . 129 . 

129 . 255 . 129 . 129 . 130 . 
130 , 132 . 152 . 224 . 
5010 DATA 14, 27. 127. 31. 15, 

7. 15. 31. 31, 29. 30. 15. 3. 

1. Ip 3, 0. 0. 0, 0. 0, 192. 11 

2. lee, 206. 30. 124. 248. 224. 
64, 64. 224 

A linha 10 foi modificada para mu- 
dar as cores da tela e iniciar o gerador 
de numeros akat6rios. 

A Linha 20 foi alterada para poder Icr 
OS dados adicionais da lirilia 5010, O 
sprite do pato e criado pela linha 55. 

As linhas 70 a 105 mudam a labela 
de cores — BASE (6) — com o objetivo 
de aiterar as cores do-s caracteres. Isio 
nao e essencial ao nosso programa, mas 
permitird que voce modifique os valo- 
res P e T do comando VPOKE BASE 
(6) + I, T * 16, P (Pea cor de fundo 
e T, a cor de frente). 

A linha llOapagaa tela e liga a fun- 
Vao 5TRIG (1) que permite a dctec^ao 
de um tiro (ela tambem reduz o score a 
zero). Quando o boiao de liro do joys- 
tick 1 e pressionado, a fun<;ao STRIG 
(N) ON desvia o curso do programa pa- 
ra o endere<;:o do comando ON STRIG 
GOSUB. N delerminao joystick: I e 3, 
joystick da direita; 2 e 4, joystick da C-s- 
querda. O numero permite a lecla de 
espai^os disparar tiros. 

A linha I20chamaa sub-rotina4000, 
que coloca o score e o recorde na tela. 

As linhas 130 a 150 desenham uma 
moldura vermelha, colocando na tela 
uma serie de caracteres com VPOKE. A 
cor da moldura e delerminada pela li- 
nha 105. 

A posigao em que o pato vai apare- 
cer e escolhida ao acaso pcla linha 1 60. 
As linhas 180 e 190 estabelecem as con- 
didoes iniciais: dez patos na variaveJ D, 
score zero e contador de (empo — TI- 
ME, uma varidvel interna do MSX — 



lambem igual a zero. 

A linha 210 desenha o pato, A linha 
220 diz ao programa para onde ir, caso 
o botao de tiro seja pressionado, Sao ne- 
cessarios cinco enderefos apos ON 
STRIG para cobrir as valores de a 4. 
Se, ao retornar da sub-rotina 2000. on- 
de e verificado se o liro alingiu o alvo> 
nao liouver mais palos — ou seja, D < I 
— programa ird para a linha 250, 

A linha 230 verifica se o lempo que 
cada pato pode ficar na tela foi ultra- 
passado. Se islo ainda nao aconteceu, 
o programa voliara a linha 200. 

Caso o pato nao seja atingido den- 
iro do prazo. a linha 240 diminuira o nii- 
mero de aves, Se ainda houver patos, a 
nova posi<;ao sera calculada pela sub- 
rolina 3000 e o programa voltara para 
a linha 190. 

Quando nao houver mais patos. a li- 
nha 250 chamara a sub-rotina 4000, que 
mostrara o placar. 

A linha 280 faz entao a veiha pergun- 
la: *'Quer jogar novamenie?'* (a linha 
260 apaga a regiao onde e escrita a men- 
sagem). Caso a resposla seja afirmati- 
va, a linha 300 recomegara o jogo. Ca- 
so seja negaiiva, a linha 310 terminara 
com ele, A linha 290 cuida das outras 
respostas- 

A sub-rotina 2000 verifica se o tiro 
dado acertou o pato, Na linha 2000. as 
condigdes ABS <X-DX)>1 e ABS (V- 
DV) > 1 dao uma certa margem de erro 
a posipao da mira, Se exigirmos que as 
coordcnadas do pato ^ DX, DY — se- 
jam exatamenle iguais as coordenadas 
da mira — X. Y — , o jogoficaramuilo 
dificil. 

A linha 2010 faz com que o sprite do 
pato desapareca da tela, pois torna sua 
coordenada vertical igual a 209. Uma 
pequena meiodia ceiebra o succsso do 
jogador, na linha 2020. A linha 2030 
chama a sub-rotina 3000 que cafcula 
uma nova posi^ao para o pato, 

Os pontosa queojogador fezjussao 
calculados pela linha 2040 com base no 
tempo que cle levou par^ acertar o pa- 
to. A sub-rotina 4000 mostra o novo 
placar. A linha 2050 reduz em I o nu- 
mero de patos e faz o contador de lem- 
po come^ar novamente do 0. 



\!/l 
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Caso o jogador erre o tiro» a linha 
2070 produzirA algumas notas dissonan- 
les. Uma multa de 25 ponios sera entao 
cobrada e o placate modificado e mos- 
irado ao jogador, 

A linha 3000 chamada como sub- 
roiina caJcula ao acaso a nova posigao 
do pato. 

A sub-rotina que comega na linha 
4000 mosrra na tela o score, atuaJizan- 
do e exibindo o recorde. 

Os valores da linha 5010 contem o 
padrao do sprite do pato. 

O nivel de dificuldade do jogo pode 
ser modificado alterando-se o prazo 
que o jogador tem para acertar o pato. 
Isso c feilo na linha 230. Acompanhan- 
do essa altera^ao, o cdlculo dos pontes 
(na linha 2040) e da multa (na linha 
2080) dcve sofrer modificagoes pro- 
porclonais. 



a] 



Complete o programa anterior com 
as linhas: 

60 HOME : HGR : SCALE- 1: ROT- 

0:X - 130:Y ■ 90 
100 DX - IKT ( HND (1) * 256): 
DY - INT < RND <1) ■ 136) 
110 D - 10;SC - 
120 CV - 

210 HCOLOR- 3; GOSUB 700 
220 IF PEEK ( - 16287) > 127 
OR PEEK (16286) > 127 THEN GO 
SUB 1000: IF D < 1 THEN 250 
230 IF CV < 40 THEN 200 
240 D - D - 1: IF D > THEN G 
OSUB 1500: GOTO 120 
250 : HOME : HTAB 5: VTAB 23: P 
RINT -SCORE - * jSC; 
260 IF SC > HI THEN HI - SC 
270 PRINT TAB( 20);"RECORDE - 

" :HI 
2B0 PRINT TAB{ 5) ; "QUER JOGAR 

NOVAMENTE (S/N) 7 " 
290 GET AS: IF AS < > "S" AND 

AS < > "N" THEN 290 
300 IF A$ - "S" THEN 60 
310 HOME : TEXT : END 
500 LX • X:LY - Y : CU - CV + 1 
700 DRAW 1 AT DX^DY 
710 DRAW 2 AT DX.DY + 8 
720 DRAW 3 AT DX + 8,DY 
730 DRAW 4 AT DX + e,Dy + 8 
740 RETURN 



1000 IF ABS [X - DX - 4) > e 

OR ABS (Y - DY - 4) > B THEN 1 

070 

1010 FOR I - 1 TO 20 

1020 P - PEEK ( - 16336): NEXT 

1030 GOSUB 1500 

1040 SC - SC + 50 - CV 

1050 D-D - 1:CV - 

1060 RETURN 

1070 FOR I - 1 TO 3 

1080 P - PEEK ( ' 16336) : NEXT 

1090 SC - SC - 5 

1100 RETURN 

1500 HCOLOR- 0: GOSUB 700 

1510 HCOLOR- 3: DRAW 5 AT X,Y 

1520 DX - INT { RND (1) * 256) 

;DY - INT < RND (1) ^ 136) 

1530 RETURN 



O HOME da linha 60 foi acrescenta- 
do para que o placar pudesse ser mos- 
irado. A linha UO calcula ao acaso uma 
posii;ao parao pato. As linhas I20e 130 
estabelecem condifoes iniciais para o 
niimero de pafos (D), para o score (S) 
e para o contador de lempo (CV). 

A linha 210 descnha o pato. A linha 
220 verifica se o botao do joystick foi 
pressionado — neste caso, o valor de um 
dos enderci^os dos comandos PEEK se 
torna maior que 127. Caso o programa 
nao funcione, o joystick pode vir a uti- 
lizar o enderego - 16285. 

A linha 230 verifica se o prazo que 
o jogador tem para acertar o pato se es- 
gotou, voltando para a linha 200» se is- 
lo ainda nao aconteceu. 

Caso um dos patos nao tenha sido 
abatido dentro do limitc de tempo, seu 
numero diminuira em um. Se ainda so- 
brarem patos, a sub-rotina I50O dese- 
nhara um deles na tela e o jogo conti- 
nuari na linha 190. 

Se OS dez patos j^ foram desenhiados, 
o jogo terminara e o score sera exibido 
na por^ao inferior do video. A linha 260 
atualiza o recorde. que e impresso pela 
linha 270. Uma opgao de jogar nova- 
mente e cntao oferecida ao jogador. 

A linha 500 foi modificada para in- 
cluir um contador de tempo, A sub- 
rotina 700 desenha ou apaga o pato da 
tela, conforme a defini^ao de cor atual. 

As linhas de 1000 a llOOverificamse 



o tiro foi certeiro. As condi*;6es do IF 
da linha lOOOpermitem umacerta mar- 
gem de erro ao tiro. Se exigirmos que 
as coordenadas do pato coincidam com 
as da mira. o jogo se lornara muiio difi- 
cil (lembre-se de que nao conseguimos 
controlar lotalmente o cursor em BA- 
SIC; alem disso, a mira se move de oiio 
em oito pomos). 

As linhas 1020 e 1030 produzem uma 
serie de vinle "cliques'* no alto-falante, 
informando o sucesso do tiro. Um no- 
vo pato e gerado pela linha 1030. Os 
pontes ganhos sao eniao calculados. 
com base no lempo gasto pelo jogador 
para abater a ave. O numero de patos 
e diminuido e o contador de tempo vol- 
ta a zero, 

Se o tiro nao atingir o paio, as linhas 
1070 e 1080 emitirao tres "^cliques" e 
uma multa de cinco ponios serd cobra- 
da. 

A sub-rotina 1500 apaga o pato de 
sua antiga posi(;ao — linha 1 500 — e de- 
senha a mira nesse lugar, calculando ao 
acaso uma nova posi^ao. 

O nivel de dificuldade do jogo pode 
ser alterado, modificando-se o limite de 
tempo na linha 230. A contagem de pon- 
tes e a multa devem ser alteradas pro^ 
porcionalmenie, nas linhas 1040e 1090. 



Para o TK-2000, acrescente as linhas 
validas para o Apple, com as seguinies 
modifica^oes: 

220 IE A - 46 OR A - 76 THEN 
GOSUB 1000: IF D < 1 THEN 250 
570 IF A - 46 OE A - 76 THEN 

RETURN 

Essas linhas verificam se um dos bo- 
loes de tiro do joystick da microdigital 
foi pressionado. 46 e 76 sao os codigos 
que OS botoes de tiro enviam ao micro. 

D 

Ao adicionar as prdximas linhas, vo- 
ce ler^ jogo compleio. 

80 FOR K-1536 TO 2272 STEP 32 
90 READ A,B:POKC K.A:POKE K+1,B 
100 NEXT 



110 GET(0.0)-C13.11) ,D,G 

120 GET(0.12)-(1J»23) ,H,G 

150 DX-RNDC239)+1:DY-BNDC178)+1 

ISO D-10:SC-0 

190 TIMEB-0 

210 PUT(DX.DY)-(DX+13,DY+11) ,D, 

OR 

220 IF (PEEK(6S260)AND1)-Q G03U 

8 2000aF D<1 THEN 250 

230 IF TIMEB<200 THEN 200 

240 D-D-1:IF D>0 GOSUB 3000 :GOT 

190 

250 CLS:PRINT #139 t "SCORE-" ; SC 

260 IF SOHI THEN H1-3C 

270 PRINT §234,"REC0aDE--jHI 

260 PRINT $389,'QUEEt RECOMECAR 

(S/N)?" 

290 AS-INKEYS:IF A3<>"S' AND A3 

<>-N' THEN 290 

300 IF A$-"S" THEN 130 

310 END 

2000 IF PP0INT(X.Y)-1 THEN 2070 

2010 PUT(X-6,Y-5)-CX+7.Y+5) .H,P 

SET 

2020 PLAY ''T50O4CEEEG' 

2030 GOSUB 3000 

2040 SC-3C+250-TIMER 

2050 D-D-l:TI«EB-0 

2060 RETURN 

2070 PLAY '*T250OlDDE'^ 

2080 SC-SC-10 

2090 RETURN 

3000 PUT(DX.DY)-CDX+13,DY+11) ,B 

. PSET 

3010 PUT{X-8.Y-5)-CX+9.Y+5) .S.P 

SET 

3020 DX-RND(239J+l:DY'-HN0a7e) + 

1: RETURN 

4020 DATA 4.0,25.0,149,0,21.0,5 

,0.5,64.5,80,21,148.22.148,22,8 

4,21.84.5,60 

4030 DATA 46,48,0,0.195,12,51,4 

8, 15. 192. 51. 48, 204, 204, 15. 192,5 

1,48,192. 12,0,0.51,48 



Dois descnhos estao contidos nas 11- 
nhas DATA 4020 e 4030: o pato e o que 
rcsiou dele apos ser atingido pelo tiro. 
Os numeros. sao lidos e colocados na tela 
pelas linhas 80 a 1 00 com auxilio de. co- 
mandos POKE. Dois comandos GET 
sao usados para colocar o pato na ma- 
iriz Deo efeito do liro em H. 

A linha 150 seleciona ao acaso uma 
posi^ao para o paio, enquanio a linha 
210 utiliza os vaJores de DX e DV para 
desenha-Io na tela. 

05 valores iniciais do numero de pa- 



tos, do score e do contador de tempo sao 
estabelecidos peias linhas 180 e 190. 

Os tiros sao detectados pela linha 
220. Se o botao da direiia for pressio- 
nado, o bit do endere^o 65280 da me- 
moria mudard de 1 para 0; se o botao 
pressionado for o da esquerda, o bit mu- 
dara de para 1 . A linha 220 mostra co- 
mo verificar essas mudan^as em 65280. 
Se utilizarmos os comandos PEEK e 
ANDI e pressionarmos o botao da di- 
reita, teremos o valor zero. PEEK e 
AND2 vcrificam o botao da esquerda. 
Tal como est^, a linha 220 se refere ao 
botao da direita. Se ele for pressionado. 
o programa serd desviado para a sub- 
roiina 2000, que verificara se o tiro acer- 
tou o alvo. 

A parte final da linha 220 averigua 
se OS dez patos jd foram desenhados; se 
a resposta for positiva, o programa ir^ 
para a linha 250. 

Uma vez pressionado o botao do 
joystick, a linha 2000 verifica a cor do 
ponlo que esta no ccniro da mira, Se a 
fun^'ao PPOIINT sugehr que a cor e ver- 
dc, isso significa que o jogador errou o 
alvo, e o programa ira para a linha 2070. 
que produzira um som de erro. Uma 
multa de dez ponios sera cobrada e a 
sub-rotina lerminara na linha 2090. 

Se a cor no centre da mira nao for 
verde, isso quer dizer que o tiro aiingiu 
o alvo. Um desenho serd colocado so- 
bre pato, e se ouvira um som de su- 
cesso. A seguir, e chamada a sub-roiina 
3000. Sua fungao e apagar o que restou 
do pato e desenhar a mira no mesmo lo- 
cal. A linha 3020 calcula ao acaso a no- 
va posii;ao do pato. 

A linha 2040 calcula o score- Este de- 
pende do tempo levado para acertar o 
pato. O numero de aves e diminuido de 
um a cada exemplar abatido e o conta- 
dor de tempo recomega de zero. 

Apbs completar a sub-rotina, o pro- 
grama retorna a linha 230, onde e veri- 
ficado o prazo para o pato ser atingido. 
Se a variavel TIMER for mcnor que 
200, o programa voltara a linha 200. Ca- 
so contrario, a linha 240 diminuira o nu- 
mero de patos, verificando se sobrou al- 
gum, Em caso positivo, a sub-rotina 
3000 apagara a ave restante e a linha 
3020 desenhar^ um novo pato. 



Se OS paios tiverem acabado, o score 
e o recorde serao mostrados pelas linhas 
250 a 270. Estas lambem aiualizam o 
recorde. 

As linhas 2S0 a 310 oferecem ao jo- 
gador a possibilidade de jogar no- 
vamente. 




que fazer para transformar o dese- 
nho do pato em um alvo diterente? 

A resposta depeode do computador 
que estamos usando. Basicamente, de- 
vemos alierar as )inhas DATA e, talvez. 
as )inhas que colocam caracteres 
(UDGl na tela. 

O programa do Spectrum usa um 
conjunto de quatro UOG definidos nas 
hnhas 1000 a 1030, Psra conjuntos 
maiores, a linha 180, que coloca o de- 
senho na tela, usando PRINT, deve ser 
modit'cada. 

Usu^rros do MSX tambem precisa 
r^o mudar as linhas DATA. Se usarem 
mais de um sprite, o tamanho do FOR 
da linha 20 deverd ser alterado e no- 
vos PUT SPRITE, acrescentados. t 
posslvel tambem que sejam necess^- 
rias algumas modifica^des nos coman- 
dos que cont§m coordenadas. pro- 
grama editor de sprites que fornecemos 
pode ser util como ponto de refer&ncia. 

A chave da modificagao das linhas 
DATA do Apple e do TK-2000 estS no 
programa editor de tabelas de Ijguras, 
A sub-rotina 700 deve ser alterada em 
caso de modiftcapao do tamanho da f^- 
gura Neste caso, todos os comandos 
que lidam com coordenadas devem ser 
igualmente alterados, 

JA no TRS-Color 6 muito simples 
char caracteres UDG de qualquer tama- 
nho, Mude as Tinhas DATA e os 
FOR.„NEXT que as teem. Taivez seja 
necess^no mudar tambem as coorde- 
nadas dos comandos PUT e GET. 
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Vocg tern dificuldade para descobrir 
quantas polegadds ha em urn 
metro ou quantos litros contem urn 
galao? programa conversor 
de INPUT resolve esse problema. 



Adoiado peia maioria dos paises do 
mundoocidentai, osisiema merrico de- 
cimal de pesos e medidas tem contribuf- 
do. desdc o scu surgimenio no seculo 
XVIII, para facilitar as relavoes comer- 
ciais e o intercambio cultural eutrc i 
povos, Os Esiados Unidos e a Gr 
Brcianha, porem, permaiiecem aves. 
a ele, preferindo empregar seus prdokis 
sisiemas. Essa divergcncia de criUPios 
lem criado nao poucos prob! 
nicos, pois grandc pane das m 
e ferramcnias em circulagao n 
do mundiaJ e produzida nesse 
ses, exigindo constanies co 
medidas, como, por exem 



em 



gadas para ceniimeiros ou 



inas 

erca- 

01 s pal- 

rsoes de 

de polc- 



para quilogfamas. 

programa a ^eguir Taz conversoes 

ssc lipo, incluindo ate mesmo niedi- 

las mcnos fF^uentes, como a de pres- 

'sao em milifflelros de merciirio (abrevia- 

da para minHG). 

Inicialmcnic. digile o programa e exe- 
cute-ci. Uin menu de opgoes aparecerd 
imediaiatnenle, A primeira delas (SAIR) 
permite que voce relorne ao BASIC, en- 
quanto .»s ouiras se referem aos tipos de 
unidadcs que podem scr converlidas. As 
esc^has possiveis sao: comprimento, 
ar^, volume, massa {ou peso), pressao 
c.U'mpcratura, 

As opt;6es sao precedidas por niime- 

siluados a sua esquerda. Para scle- 

" cionar uma delas, pressione a lecJa com 

o numero corrcspondenle. Para coiiver- 

tcr» por exemplo, unidades de compri- 




mento. pressione a tecla " I " . Nao im- 
ports, por enquanlo, se a conversao se- 
ra do sislemameirico decimal para o sis- 
lema britanico ou vice-versa. 



QUAIS UNIDADES 



Depois de fazer sua escoiha a respei- 
lo do genero de conversao, pressione a 
tecla com o numero correspondenie, O 
computador mosirard entao um segun- 
do menu, que the permilir^ definir a uni- 
dade a ser convertida, 

Assim. se voce pressionou a tecla 'T' 
para converter unidades decomprimen- 
lo, tem agora uma tista de lodas as uni- 
dades possiveis (polegadas, pes, miiime- 
tros, cenlimetros. meiros, etc.). Sequi- 
ser convener polegadas em unidades de- 
cimais. pressione *T' no\amente e di- 
gi(e o numero de polegadas. Nao se cs- 
que^a dcteclar < ENTER > ou <RE- 
.N> depois disso. 



I computador faz as conversoes e a 

air mostra os resuliados em fodas as 
5dades de um dos sisiemas de medi- 

[{metrico decimal ou britanico). Des- 
fforma, se voce digiiar um valor em 
glegadas, tera a resposla em mili'mc- 

s, centimctros. metres e qiiilometros. 

icpois de mostrar todos os valorem, 
[jompuiador esperara ate que uma ic- 
tseja pressinnada para prosseguir, Se 
t lor < ENTER > ou < RETURN > . 
jrograma voltar^ a mostrar o menu 

icipaln Se voce qulser coniinuar a 
Qvener o mesmo itpo de unidade, 

alquer ouira lecla o levara ao menu 
terior. 
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C QNVERSAO DO SISTEMA 
METRICO PARA SISTEMA 



AREA. PESO, COMPRIMENTO, 



BRITANICO E ViCE-VERSA 

COMO USAR PRQGRAMA 

COMO CONVERTER VALORESDE 



VOLUME , PRESSAQ E 
TEMPERATURA 



CONVERSAQ DE UNIOAD ES 
MISTAS E FRAC6eS 



Para interromper o programa, retor- 
nc ao menu principal e lecle "O" para 
a opi,-ao SAIR. 



UNIDADES MISTAS 



E possivel ainda que voce precise con- 
verter o valor de uma medida briianica 
em que haja unidades e subanidades. 
Tomemos, por exempio, dois pes e seis 
polegadas. Ha duas maneiras de revol- 
ver o problema. 

O programa aceita niimeros que nao 
sejam inieiros; assim, se voce souber 
quantas polegadas ha em um pe. pode 
calcular a irafao decimal corresponden- 
le e digita-la no compuiador. Nesic ca- 
so nao ha dificuldade, vislo que seis po- 
legadas sao exatamente meio pe. Assim, 
voce digitaria 2.5. 

O segundo m^todo <mais empregado 
caso de fravoes de calculo dit'icil) 
isie em converter o valor em duas 
etapas. l^es^a forma, passe para o sis- 
tema decimal, cm primciro lugar. o va- 
lor exprcsso em p^s; convert^ dcpuii o_^ 
valor era polegadas. Em scgilida. ludc 
o que voce lem a fazer c somar <>s doii 
resullados (Icmbre-se de somar sempr ' 
valorc-s da mesma unidade decimal)- 

Se ocorrer o conlr^rio. on seja. sei 
ntimero nao inieiro far do sislema dec 
mal, cakulc a fracao conveuienle e cc 
loque-a no compuiador. 



O 
^^^lO c 

^Hetapi 
^^^tema 

I 
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10 D1ML{7) ,LSC7),A{6J .AS(6) .VC< 
>.V$(6>.Mt5) ,M9(5) .PC4) ,P$(4) 
20 FOR K*0 TO 7:READ L(K),L9<K) 
■ MEXT 

JO DATA 1. POLEGADAS. L2, PES, 36. J 
AEtDAS. 63360. HILHAS, . 03937, MILIM 
ETKOS. .3937.CENTIMETROS,39.37,H 



ETROS . 39370 . KILOMETROS 

40 FOR K-0 TO 6:READ ACK).A5(K) 

'NEXT 

50 DATA 1. POLEGADAS QUADRADAS^l 

44. PES QUADRADOS. 6272640, ACRES. 

4.0145E9,MILHAS QUADBADAS, - 155 , 

CENTIMETHOS QUADRADOS , 1550 . WETB 

OS QUADRADOS. I. 55E7, HECTARES 

60 FOR K-0 TO 6:HEAD y{K}.V3(K) 

:NEXT 

70 DATA 1. POLEGADAS CUB1CAS.172 

e.PES CUBICOS.34.67rPINTAS,277, 

36,GALOES, .06102»CENTIM£TROS CU 

BICOS» 61. 024. LlTflOS, 61024, METRO 

S CUB I COS 

80 FOR K-0 TO 5:READ H<K),M3(K) 

:NEXT 

90 DATA l.ONCAS, 16, LIBRAS. 35840 

•TON, INGLESAS. , 03527 , GRAMAS , 35 

. 27, KILOGRAMAS, 35270. TOK, METRI 

CAS 

100 FOR K-D TO 4: HEAD P(K3,P5( 

K) :NEXT 



110 DATA l.PSI .51.73.MM HG.6S95 

,N/METRO QUADRADO, .0681.ATMOSFE 

RAS,6e.95,HILIBARES 

120 CLStPBTNT" QUAL CATEGOR 

lA co-e)?- 

130 PRINT e72."0-' SAIDA'tPRINT 

#136. "I- COMPRIMENTO": PRINT #20 

0,"2- AREA":PBINT #264. "2- UOLU 

MEVPRINT #328,-4- PESO'iPRINT 

#392, "5- PRESSAO": PRINT #456, "6 

- TEMPERATURA" 

140 A$-1NKEYS:1F AS<"0* OR AS>'' 

6" THEN 140 

150 IF AS--0" THEN CLS:END 

160 CLS:ON VAL (AS) GOSUB 1000.1 

500. 2000.2500.3000.3500 

170 GOTO 120 

1000 PRINT #9,"coiDprimento':PRI 

NT 934, "SELECIONE UNIDADE ORIGI 

NAL^rFOB K-0 TO 7:PRINT #136+32 

•K.K+l;"- ";LSCK):NEXT 

1010 BS-INKEY$:IF B5<"1' OR BS> 

"8" THEN 1010 




y. 
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lOZO B-VAL(BS)-1'CL9:PBINT" INT 

RODUZA HUMERO DE ';L$<B) 

1030 IWPUT VL 

1040 CLSrPBINT ULiLflfB):" EOUIU 

ALE A - 

1050 IF B>3 THEN 1060 

1060 FOR K-0 TO 3 : PRINT #96+K*6 

4,VL*L<B)/HK+4) ,LS(K+4) :NEXT 

1070 GOTO 1090 

1080 FOR K-0 TO 3:PRINT §96+K*6 
4,VL"L(S)/LCK) .L3(K5 :NEXT 

1090 AS-IKKEY3;IF AS-"" THEN 10 

90 

1100 IF AS-CHR3<13) THEN RETURN 

ELSE CLS:GOTO 1000 
1500 PRINT €13."area'':PRINT §35 

.-SELECIONE UNIDADE 0RIGINAL":F 
OR K-0 TO 6;PRINT #131+32*K , K+1 

;'- "iASCK) :NEXT 

1510 BS-INKEYSilF B9<-1" OR BS> 

-7- THEN 1510 

1520 B-VAL(B3)-1:CLS:PRINT' INT 

R0DU2A O NUMERO DE -iAS(D) 

1530 INPUT VL 

1540 CLS:PRINT VL;ASCB)r'' EQUIU 

ALE A " 

1550 IF B>3 THEN 1580 

1560 FOR K-0 TO 2: PRINT «96*K"6 

4,VL*A(BJ/A(K+4) ,A$(K+4) :NEXT 

1570 GOTO 1590 

1580 FOR K-0 TO 3: PRINT e96+K*6 

4.VL»A{B)/A(K) .ASfK) : NEXT 

1590 Aa-INKEYS:IF AS-"" THEN 15 

90 

1600 IF A3-CHR3(13] THEN RETURN 

ELSE CLS:G0T0 1500 
2000 PRINT ei2,-voluBe-:PRlNT § 
35,-SELECrONE UNIDADE ORIGINAL" 
:FOR K-0 TO 6 : PRINT ei33+32*K.K 
+1;*- "iVStK) :NEXT 
2010 BS-INKEY3:IF BS<-1" OR B$> 
^7" THEN 2010 

2020 B-VAL{B3)-1:CLS:PRINT" INT 
RODUZA NUMERO DE "^;V3(B) 
2030 INPUT VL 

2040 CLSrPRlNT VL;VS<B);'' EQUIU 
ALE A " 

2050 IF B>3 THEN 2060 
2060 FOR K-0 TO 2: PRINT §96+K*6 
4,VL*UCB)/V(K+4) ,US<K+4) :NEXT 
2070 GOTO 2090 

2080 FOR K-0 TO 3:PRINT §96+K*6 
4,UL*U(B)/y(K) ,VS(K) :NEXT 
2090 AS-INKEY3:IF A?-"" THEN 20 
90 
2100 IF A3-CHR3<13) THEN RETURN 

ELSE CLS:GOTO 2000 
2500 PRINT ei3."peBo":PRINT ^35 
,*SELECIONE UNIDADE ORIGINAL" :F 
OR K-0 TO 5:PRINT «136+32*K. K+1 
;-- ";MS{K) : NEXT 

2510 Bd-INKEy3:IF B9<''1' OR Bd> 
'6- THEN 2510 

2520 B-VALCBS)-1:CLS:PRINT" INT 
RODUZA NUMERO DE ":W3(B) 
2530 INPUT VL 

2540 CLS:PRINT VL:M3(B};- EQUIV 
ALE A ' 

2550 IF B>2 THEN 2580 
2560 FOR K-0 TO 2 : PRINT «96+K*6 
4.UL*M(B)/MCK+3) »M3(K+3) :NEXT 
2570 GOTO 2590 
2580 FOR K-0 TO 2: PRINT #96+K«6 



4,VL*M(S)/M(K) ,M3CK) ;NEXT 

2590 A3-INKEYS:IF AS-"" THEN 25 

90 

2600 IF A3-CHRS(13) THEN RETURN 

ELSE CLS:GOTO 2500 
3000 PRINT §ll."preaBao":PRlNT 
«36."SELECIONE UNIDADE ORIGINAL 
":FOR K-0 TO 4:PRINT ei34+32*K. 
K+l;"- ";PS(K) : NEXT 
3010 B3-INKEY3:IF B3<"1" OB B$>' 
"5" THEN 3010 

3020 B-UAL{B3)-l:CLStPRINT"' INT 
RODUZA NUMERO DE " ; P5 IB) 
3030 INPUT VL 

3040 CLS^PRINT VL ; PS {B) ; " EOUIV 
ALE A " 

3050 T-0:FOR K-0 TO 4 ; IF K-B TH 
EN 3070 

3060 PRINT «96+T*64,VL«P(K)/P{B 
) ,PS(K) :T-T+1 
3070 NEXT 

3080 A$-INKEYS:IF AS-"" THEN 30 
80 
3090 IF AS-CHR3(13> THEN RETURN 

ELSE CLS:GOTO 3000 
3500 CLSiPflINT §10,"tewperatura 
"rPRINT e37,''SELECIONE CONVERSA 
: ": PRINT" CENTIGRADOS PARA F 
AHBENHEIT (C) FAHRENHEIT PARA C 
ENTIGRADOS (F) " 

3510 B5-INKEY$;IF B3<>"C" AND B 
S<>"F" THEN 3510 
3520 IF B3-"C" THEM 3560 
3530 PRINT- INTRODUZA GRAUS FAH 
RENHEIT": INPUT VL 
3540 CLSrPHINT §33 pUL; "GRAUS FA 
HRENHEIT EQUIVALEM A" 
3550 PRINT €97. {VL-32)*5/9;"GRA 
US CENTIGRADOS" :GOTO 3590 
3560 PRINT* INTRODUZA GRAUS CEN 
TIGRADOS" : INPUT VL 
3570 CLStPRINT #33. VL; "GRAUS CE 
NTIGRADOS EQUIVALEM A" 
3580 PRINT 697, 32+VL*9/5; "GRAUS 

FAHRENHEIT- 
3590 AS-INKEYS:IF AS-"" THEN 35 
90 
360D IF A3-^CHRS<13) THEN RETURN 

ELSE CLSrGOTO 3500 



5 POKE 23659,8 
10 DIM L(8J : DIM LS(8,12) : 
DIM A(7} : DIM A3C7,16) : DIM V 
(7) ; DIM VS (7-16) : DIM M(6) : 
DIM VC7) : DIM VSC7,12) : DIM H 
(6) : DIM MS (6, 12) : DIM P(5) : 

DIM P$(5.17) 
20 FOR K-1 TO 8: READ L (K) , LS 
{K) : NEXT K 

30 DATA 1,"P0LEGADAS".12."PES 
". 36, "JARDAS", 63360, "MILHAS". 
.03937, "MILIMETROS-, .3937,"CE 
NTIMETROS" , 39 . 37 , "METROS" , 
393 70. "QUI LOMETROS" 
40 FOR K-1 TO 7: READ ACK).A$ 
(K) : NEXT K 

50 DATA 1,"POL.OUADRADAS'',144 
."PES QUADRADOS", 6272540, "ACR 
ES" ,4.0145E9,"MILHAS QUADRADA 
S", _ 155. 'CENT. QUADRADOS", 
1550, "METROS QUADRADOS', 



1.55E7, "HECTARES- 
60 FOR K-1 TO 7: HEAD V(K),VS 
fK) : NEXT K 

70 DATA 1,"P0L,CUBICAS".172B, 
"PES CUBIC0S",34.6;,"PINTS". 
277.36,"GALOES". . 06102 , "CENT- 
CUBICOS".61.024,"LITROS", 
61024. "METROS CUBICOS" 

eO FOR K-1 TO 6: READ M(KKMS 
(K) r NEXT K 

90 DATA a,"0NCAS".16,"LIBRAS" 
,35840, "TON. INGLESAS". .03527, 
"GBAMAS'',35,27,'QUILOGBAMAS". 
35270, "TON. METHICAS" 
100 FOR K-1 TO 5: READ P(K),PS 
(K) : NEXT K 

110 DATA 1, "LIBRA/POL. QUADB.". 
51. 73, "inmHG",6895. "N/METRO QUA 
DR.". ,06ei,"ATMOSFERAS''.68.95, 
"MTLIBARES" 

120 CLS ; PRINT INVERSE 1;"' 
TAB 5i"QUE CATEGOHIA (0 A 6)?" 
;TAB 31;" " 

130 PRINT AT 6,e:"0' SAIDA";AT 
8.8;"1- COMPRIMENTO'iAT 10,8;" 
2- AREA";AT 12,8;"3- VOLUME"; 
AT 14.8;"4- PESO";AT 16,8i"5- 
PRESSAO'-iAT 18.8;"6- TEMPERATU 
RA" 

140 LET ZS-INKEY$: IF ZS<"0" 
OR ZS>"6" THEN GOTO 140 

150 IF ZS--0" THEN CLS ; 

STOP 

160 CLS : GOSUB 1000+ (VAL ZS-1 

)*500 

170 GOTO 120 
1000 PRINT INVERSE l.AT 0,12;' 

COMPRIMENTO ": PRINT AT 2,6; "S 
ELECIONE UNIDADE ORIGINAL": PRI 
NT : FOR K-1 TO 8: PRINT 'TAB 1 
0;Ki"- ":L3CK) : NEXT K 
1010 LET BS-INKEYS: IF BS<'1" 
R B3>"8" THEN GOTO 1010 
1020 LET B-VAL BS : INPUT "INTRO 
DUZA NUMERO DE " ; (LS <B) ) , VL 
1040 CLS ; PRINT AT 2,4:VL;" "; 
LS(B) ;■ EQUIVALE A " 
1050 IF B>4 THEN GOTO 1080 
1060 FOR K-1 TO 4: PRINT AT K*2 
+4,3;VL*LCB)/L<K+4) :TAB 18;LS(K 
+4) : NEXT K 
1070 GOTO 1090 

1080 FOR K-1 TO 4: PRINT AT K*2 
+4,3;VL*LCB)/LCK) ;TAB 18;L3(K): 

NEXT K 
1090 LET ZS-INKEYS: IF ZS-"" TH 
EH GOTO 1090 

1100 IF ZS-CHB5 13 THEN RETURN 
1110 CLS : GOTO 1000 
1500 PRINT INVERSE 1;AT 0,13;" 
AREA ": PRINT AT 2,6; "SELECION 
E UNIDADE ORIGINAL": PRINT : FO 
R K-1 TO 7: PRINT "TAB lOiK;"- 
•;A3(K) : NEXT K 

1510. LET BS-INKEY$: IF BS<"1" 
R B3>"7" THEN GOTO 1510 
1520 LET B-VAL BS: INPUT "INTRO 
DUZA NUMERO DE ';CA3(B)},VL 
1540 CLS : PRINT AT 2,4iVL;" "; 
AS<B) ;- EQUIVALE A " 
1550 IF B>4 THEN GOTO 1580 
1560 FOR K-1 TO 3: PRINT AT K*2 




+4,3;VL*A(B)/A<K-l-4) ;TAB 18;A$(K 

+4) : NEXT K 

1570 GOTO 1590 

1580 FOR K-1 TO 4: PRINT AT K*2 

*^4.3;VL*ACB] :TAB ieiA$(K): NEXT 

K 
1590 LET ZS-INKEir$: IF ZS-"" TH 
EN GOTO 1590 

1600 IF ZS-CHR$ 13 THEN RETURN 
1610 CLS : GOTO 1500 
2000 PRINT INVERSE 1;AT 0,12;" 

VOLUME •: PRINT AT 2,6;'SELECI 
ONE UNIDADE ORIGINAL": PRINT : 
FOR K-1 TO 7; PRINT 'TAB 10;K;" 
- ";VS(K) : NEXT K 
2010 LET BS-INKEYS: IF BS<"1" 
H BS>''7' THEN GOTO 2010 
2020 LET B-VAL BS: INPUT "INTRO 
DUZA NUMERO DE ";<VSCfl))iVL 
2040 CLS : PRINT AT 2,4:VL'j* *; 
VS<B) ;' EQUTVALE A ' 
2050 IF B>4 THEN GOTO 2080 
2060 FOR K-1 TO 3: PRINT AT K*2 
+4,3:VL*V(B)/VCK+4) ;TAB 18;V$(K 
+4) : NEXT K 
2070 GOTO 2090 

2080 FOR K-l TO 4: PRINT AT K*2 
+4,3;VL*V(B)/V(K) ;TAB ie;V5(K); 

NEXT K 
2090 LET ZS-INKEy$; IF ZS-"" TH 
EN GOTO 2090 



2100 IF Z$-CHRS 13 THEN RETURN 

2110 CLS : GOTO 2000 

2500 PRINT INVERSE 1:AT 0.13i" 

PESO ": PRINT AT 2 , 6 ; "SELECION 
E UNIDADE ORIGINAL": PRINT ; FO 
R K-1 TO 6: PRINT 'TAB 10;K;'- 
-tH$(K) : NEXT K 

2510 LET BS-INKEY$: IF B$<"'l' 
R BS>"6" THEN GOTO 2510 
2520 LET B-VAL BS : INPUT "INTRO 
DUZA HUMERO DE "i(M3(B))»VL 
2540 CLS ; PRINT AT 2,4;VL;" * ! 
MS<B) ;" EWXVALE A - 
2550 IF B>3 THEN GOTO 2580 
2560 FOB K-1 TO 3; PRINT AT K"^2 
+4,3:VL*MCB)/M(K+3) ;TAB ISiMSfK 
+3) : NEXT K 
2570 GOTO 2590 

2580 FOR K-1 TO 3: PRINT AT K*2 
+4,3;VL*MCB)/M{K) ;TAB 18;MS{K): 

NEXT K 
2590 LET ZS-1NKEY$: IF Z$-"" TH 
EN GOTO 2590 
2600 IF ZS-CHR$ 13 THEN RETURN 

2610 CLS : GOTO 2500 

3000 PRINT INVERSE 1 ;AT 0,11:" 

PRESSAO "; PRINT AT 2,6;"SELEC 
lONE UNIDADE ORIGINAL": PRINT : 

FOR K-1 TO 5: PRINT 'TAB 10;K; 
"- "jPS(K) : NEXT K 



3010 LET B$-INKEYS: IF B5<'1' O 

R B5>"5" THEN GOTO 3010 

3020 LET B-VAL B$ : INPUT "INTRO 

DUZA O NUMERO DE ■;<PStB)),VL 

3040 CLS ; PRINT AT 2.4:VL;'' *; 

PS(B) ;■ EQUIUALE A " 

3050 LET T-0; FOR K-1 TO 5: IF 

K-B THEN GOTO 3070 

3060 PRINT AT K*2+4.3jVL*P(K)/P 

(B):TAB 1S;P$(K): LET T-T+1 

3070 NEXT K 

3080 LET Z$-INKEYS: IF Z$-"" TH 

EN GOTO 3080 

3090 IF ZS-CHRS 13 THEN RETURN 

3100 CLS ; GOTO 3000 

3500 PRINT INVERSE liAT 0,9;* 

TEMPERATURA *: PRINT AT 3,11;*C 
ONVERSAOr": PRINT '" CENTIGRADO 

PARA FAHRENHEIT (C) FAHRENHEI 
T PARA CENTIGRADO (F)" 
3510 LET B5-INKEYS: IF BSO'C 
AND BS<>"F" THEN GOTO 3510 
3520 IF BS-'C" THEN GOTO 3560 
3530 INPUT "INTRODUZA GRAUS FAII 
RENHEIT".VL 

3540 CLS : PRINT AT 1 , 2 ; VL i " GR 
AUS FAHRENHEIT EWIVALEM A " 
3550 PRINT 'TAB 2 ; (VL-32) *5/9: * 

GRAUS CENTIGRADOS ": GOTO 3590 
3560 INPUT "INTRODUZA GRAUS CEN 
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TIGRADOS'.VL 

3370 CLS ; PRINT AT 1,2:UL;" GR 

MJS CENTIGRADOS EQUIVALEH A ' 

3590 PRINT 'TAB 2 ; 32+VL*9/5 ; " G 

RAUS FAHRENHEIT- 

3590 PAUSE 0; LET ZS-INKEYJ : IF 

ZS-"" THEN GOTO 3590 
3600 IF Z$-CHHS 13 THEN RETURN 
3610 CLS ! GOTO 3500 



mis] 



10 DIM LC7) ,L3(7) .A{6).A3(6) .V 
(6) ,V3(6) ,H(5),MS(5).P(4) , PS (4) 

20 FOR K - TO 7r READ L{K).L 

S(K) : NEXT 

30 DATA 1 .POLEGADAS, I 2. PES, 36 

. JARDAS, 63360 ,MILHAS» .03937, MIL 

INETROSp . 393 7.CENTIMETR03,39. 37 

.METROS. 39370, KIL0METH03 

40 FOR K - TO 6; READ A(K>,A 

$(K) : NEXT 

50 DATA l.POLEGADAS QUADRADAS 

.144. PES QUADRADOS, 6272640. ACRE 

5,4.D145E9.MILHAS QUADRADAS , . 15 

5 

55 DATA CENTIMETHOS QUADHADO 
S»I550, METROS QUADRADOS. 1 . 55E7 , 
HECTARES 

60 FOR K = TO 6- BEAD VtK) »V 
S(K); NEXT 

70 DATA l.POLEGADAS CUB I CAS . 1 
738, PES CUBrC0S,34.67,PlNTA3.27 
7. 36.GALOES 

75 DATA . 06102, CENTIMETROS CU 
BICOS, 61.0 24 ^LITROS, 61 024, METRO 
S CUBICOS 

80 FOB K - TO 5: READ M{KJ ,M 
S(K) : NEXT 

90 DATA l.ONCAS, 16 , LIBRAS , 356 
40, TONS, . 03527, GRAMAS, 3&. 27, KIL 
OGRAMAS, 35270 /rONELADAH 
100 FOB K - TO 4- HEAD P(K), 
PS CK) : NEXT 

110 DATA l,LIBHAS/POL2,51-73, 
MHHG . 6095 , NEWT0NS/'M2 , . 0681 ,ATMO 
SFERAS, 68, 95,MIL.T BARES 
120 HOKE ■ HTAB 10: VTAB 5: PR 
IMT 'OUAL CATEGOBIA? (0-6)" 
130 VTAB 10: HTAB 10: PRINT "0 
- SXIR-: HTAB 10^ PRINT "1 - C 
OMPRIMENTO": HTAB 10; PRINT "2 
- AfiEA- 

HO HTAB lOt PBIHT "3 - VOLUME 
": HTAB 10: PRINT "4 - PESO": H 
TAB 10: PRINT "5 - PRESSAO" 




OR B3 



TAB 5: PRINT K + 1;"- "iLS(K): 

NEXT 

1030 GET BS: IF B3 < 

> "8" THEN 1030 
1O40 B - VAL (B$) 
PRINT 'NUMERO DE " 
1O50 INPUT VL 
106D HOME : PRINT VL ; 
1;L5(B);" EQUIVALEM A: " 
1070 IF B > 3 THEN 1100 



- 1: HOME 

ILSCB) ;'?- 



CHftS (32 



A UNIDADE" : PRINT 
FOR K - TO 6: PRINT '. H 
PRINT K + l;-- ";A3(K) : 



OR BS 



COL HA 
1520 

TAB 5 

NEXT 

1530 GET Bat IF B$ < 

> "7" THEN 1530 
1540 B - VAL (B3] - 1: HOME : 
PRINT "NUMEHO DE 'jASCB);"?" 
1550 INPUT VL 
1560 HOME : PRINT VL ; CHR3 (32 



150 HTAB 10: PRINT "6 - TEMPER 


1080 VTAB 10: FOR K = TO 3 : 


J iAStBM" EQUIVALEM A:" 


ATUHA- 


PRINT : PRINT VL * L(B) / L(K + 


1570 IF B > 3 THEN 1600 


160 GET A3- IF A3 < "0* OR AS 


4) i : HTAB 20: PRINT LS(K + 4) ; 


1580 VTAB 10: FOR K - TO 2 : 


> "6" THEN 160 


NEXT 


PRINT : PRINT VL ■ A{B) / A(K + 


170 HOME : IF A5 - "0" THEN E 


1O90 GOTO 1110 


4) ; : HTAB 19: PRINT AS (K + 4): 


ND 


llOO VTAB 10: FOR K = TO 3 : 


NEXT 


leO ON VAL (AS) GOSUB 1000,15 


PRINT : PRINT VL * L(B) / L(K); 


1590 GOTO 1610 


00,2000-2500,3000.3500 


: HTAB 20: PRINT LSfK>: NEXT 


1600 VTAB 10^ FOB K = TO 3 ^ 


190 GOTO 120 


1110 GET AS: IF AS < > CHBS 


PRINT. : PRINT VL ' A(B) / A(K); 


1000 INVERSE : PRINT SPC ( 39) 


(13) THEN HOME t GOTO lOOO 


: HTAB 19: PRINT AdCK): NEXT 


;: HTAB 14 r PRINT "COMPRIMENTO" 


1120 BETURN 


1610 GET AS: IF AS < > CHBS 


: NORMAL 


1500 INVERSE : PRINT SPC ( .19) 


(13) THEN HOME : GOTO 1500 


1010 PRINT : HTAB 5: PRINT "E3 


;: HTAB 18: PRINT "AREA": NORMA 


1620 RETURN 


COLHA A UNIDADE': PRINT 
^^ 1020 FOR K - TO 7: PRINT : H 


L 


2000 INVERSE : PRINT SPC ( 39) 


1510 PRINT : HTAB 5; PRINT "ES 


j: HTAB 17: PRINT "VOLUME": NOR 
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HAL 

7QIQ PRINT : HTAB 5: PRINT "ES 

COLHA A UNI DADE " : PRINT 

3020 FOR K - TO 6: PRINT : H 

TAB 5: PRINT K + 1;"- "iV^tK): 

NEXT 

Z030 GET BS: IF BS < "l" OR B5 
> "7" THEN 2030 

2040 B = yAL (BS) - 1: HOME : 

PRINT "MUMERO DE " ; US (B) ; "?" 

2050 INPUT UL 

2060 HOME : PRINT VL : CHfl3 (33 

} :V5CB) ;" EQUTVAr.EM A^" 

2070 IF D > 3 THEN 2100 

VTAB 10: FOR K = TO 2 : 
T PRINT VL * U(B) / W(K + 
HTAB 19: PRINT VS(K *■ 4) : 



2080 
PRINT 
4) ;: 
NEXT 
2090 
2100 
PRINT 
: HTAB 



GOTO 2110 

VTAB 10: FOR K - TO 3 ; 

: PRINT VL' * U(B) / V(K) 

19: PRINT V3<K) : NEXT 



2110 GET AS: IF AS < > CHRS 

(13) THEN HOWE 1 GOTO 2000 

2120 RETURN 

2500 INVERSE ■ PRINT SPCE 3V) 

'.: HTAB Ifl: PRINT "PESO" t NORMA 

L 

2510 PRINT : HTAB 5: PRINT "ES 

COLHA A UNIDADE-: PRINT 

2SZ0 FOR K - TO 5: PRINT : H 

TAB 6: PRINT K + 1;"- "iHS(Kl: 

NEXT 

2530 GET B3r IF BS < "1' OR BS 

> "6" THEM 2S30 
2540 B - VAL CBS) - 1: HOWE : 
PRINT "NUMERO DE "iMSCB)!*?" 
2550 INPUT VL 

2560 HOHE : PRINT VL ; CHR5 (32 
) :MS(B) ;" EQUTUALEM A:" 
2570 IF B > 2 THEN 2600 

VTAB 10; FOR K - TO 2 : 
PRINT VL * «(B) / M(K + 

HTAB 19; PRINT MS(K +- 3) : 



2580 
PRINT 
3) ;: 
NEXT 
2590 
2600 
PRINT 



GOTO 2610 

VTAB 10; FOR K - TO 3: 

: PRINT VL • MIB) / M(KJ 



: HTAB 19: PRINT MS (K) 
2610 GET ASt IF AS < 



NEXT 
> CHRS 



(13) THEN HOWE : GOTO 2500 

2620 RETURN 

3000 INVERSE : PRINT SPC( 39) 

;: HTAB 16: PRINT "PRESSAO'i HO 

RMAL 

3010 PRINT : HTAB 5: PRINT "ES 

COLHA A UNIDADE": PRINT 

3020 FOB K ■ TO 4: PRINT : H 

TAB 5: PRINT K + 1 ; "- 

NEXT 

3030 GET BS: IF BS < 

> -5" THEN 3030 
3040 B - VAL (BS) 
PRINT "NUMERO DE ■ 
3050 INPUT VL 

3060 HOME : PRINT VL : CHR$ (32 
) ;PS(B) : " EQUIVALEM A:" 
3070 T - 0: VTAB 10: FOR K - 
TO 4: IF K - B THEN 3100 
3090 PRINT : PRINT VL ' PCX) / 

P(B);: HTAB 19-. PRINT P3tK):T 
- T + 1 
3100 NEXT 



■;P3(K) : 
■1" OB BS 



- 1 1 HOME 

;PS(B) ;"?■ 



379 



iiiiiillMlliHHHi " ^'"^^c^" '<> 



3110 GET AS: IF AS < > CHB3 

(13) THEN HOME : GOTO 3000 

3120 RETURN 

3500 INVERSE : PRINT SPC t 39) 

;: HTA8 14: PRINT "TEMPERATURA" 

: NORMAL 

3510 PRINT : HTAB 5: PRINT "CO 

NUERTEH: " : PRINT 

35?0 PRINT ^ HTAB 5- PRINT "CE 

NTICRADO PARA FARENHETT fC) - 

3530 PRINT : HTAB 5: PRINT "FA 

RENHEIT PARA CENTIGRADO (F)" 

354f. GET BS: IF 6S < > "C" AN 

D BS < > "F" THEN 3^40 

3550 IF BS ■ "C" THEN 3590 

3560 HOME : INPUT "GRAUS FAHEN 

HEIT? ";VL 

3570 PRINT : PRINT VL : " GRAUS 

FAHENHEIT EOUIUALEM A " ; (VL - 3 

2) ^ 5 / 9i" GRAUS CENTIGRADOS. 

": GOTO 3620 

3590 HOME : INPUT "GRAUS CENTI 

GRADOS? "iVL 

3600 PRINT : PRINT VL ; " GRAUS 

CENTIGRAMS EQUIVALEM A "^32 + 

VL ■ 9 / 5:" GRAUS FARENHEIT." 

3620 GET AS: IF A3 < > CHRS 

(13) THEN HOME : GOTO 350O 

3630 RETURN 
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5 DEF5NG A 

10 DIM L{7) ,LS<7) ,A(6} .AS( 
6> .U3(6) ,M(5) ,M$(5I .Pt4) .P 
20 FOHK-0TO7:ftEAD L(K),L${ 
XT 

30 DATA l.polegadaa* 12,pes 
ardae* 63360 1 ail Ihas, .03937, 
etroB» . 3937,centlmetroB. 39 
etroB,393 70,kilflmetroa 
40 FORK»OT06:READ A(K),A$( 
XT 

50 DATA I.polegadas quadra 
44 ,p^a quadradoH,627 2640 ,3 
4. 0145e9,ini Itias Quadradas, 
centimetroB guadradaa, 1550 
oa qviadradoa ,1.55G7,hectar 
60 FORK=0TO6:ftEAD V<K).VS( 
XT 

70 DATA Iipolegadaa ctibica 
4.p^a cdbicoQ I 34 -67 , pint as 
36pgdloes , . 06102 , cent {me tr 
bicoa,61.024,Utros,610Z4, 
s cilbicos 

BO FORK-0TO5:BEAD M(K).MSC 
XT 

90 DATA l.ongaa. 16, libras, 
, tona, .035Z7» gramas, 35, 27- 
ramaa , 352 70 , tone I ad a a 
100 FORK^0TO4tHEAD P(K),PS 
EXT 

110 DATA l.libras/pot ,51. 

Ho -6895. newt ona/m , . 0681 , a 

eraa.68,95,milibare3 

120 CL3:C0L0R J5,4,4!PRTNT 

al categona? (0-6) * 

130 LOCATE 5,5tPHINT"0 - 3 

LOCATE S,7:PRINT"1 - Compr 

0-: LOCATE 5,9: PRINT' 2 - Ar 

135 LOCATE 5,11:PRIHT"3 - 

e-:LOCATE 5, 13: PRINT''4 - P 



6) ,V( 
$(4) 
K) :NE 

,36, J 
mil iiD 
.37,0 

K) :NE 

da9t 1 

crea , 

.155, 

,metr 

ea 

K) :NE 

a, 172 

,211 . 
oa cU 
metro 

K) :NE 

35840 
kl log 

tK) :N 

7 3 , mm 
tmoaf 

- Qu 



air : 
iment 
ea* 
Vol urn 
eao" : 
LOCATE 5,15;PHINT"5 - PreaaSo" : 



LOCATE 5,17 :PRINT''6 - Temperatu 

ra" 

140 A$=INKEVS:IFAS<''0"OBA$>''6-T 

HEN140 

150 IFAS-="0*THENCLS:END 

160 CLS:ON VAL(A53 GOSUB 1000,1 

500.2000,2500,3000,3500 

170 GOTO 120 

1000 COLOR 15,6.6:PRINT"Comprim 

ento" :PRINTSTHINGS(39,195J ^OCA 

TE 5, 3tPRrNT"Selecione a unidad 

e : " 

1010 FORK-OT07r LOCATE 5.6+2*K;P 

RTNTK+1;"- " | LS (K) :NEXT 

1020 B5-INKEYS:IFBS<"l''OHBS>"B"' 

THEN1020 

1030 B-UAL(B3)-l:CLS:PRINT''Dioi 

te o nOmero de " ; LS (Bj 

1040 INPUT VL 

1060 CLS:PRINTVL:CHPS(32) ;LS(8) 

i" equivalen a:" 

1060 IFB>3THEN1090 

1070 FORK-0T03: LOCATE 1,6+2*K:A 

'-VL*LCB)/L{K+4) :PflINTA;TAB(14> ; 

LS(K+4) rNEXT 

1080 GOTO 1100 

1090 FORK'^0TO3r LOCATE 1.6+2*K:A 

-VL*L(BJ/L(KJ :PRJNTAiTAB(14) i L3 

(K) :HEXT 

1100 A3'^INKEY3:IFAS"'""THEN1100 

1110 IFA$-CHHS{13)THEN SETURN E 

LSE CLStGOTOlOOO 

1500 COLOR IS.lO.lOtPRINT'Area" 

:PRINTSTRTNGS(39,195) :LOCATE 5, 

3:PRINT"Sel-ecione a unidade:" 

1510 FORK-0T06: LOCATE 5,6+2*K:P 

RINTK+1;"- "iAS(K):NEXT 

1520 B5-INKEYS:IFBS<"l''OHBS>''7" 

THEN1520 

1530 B-VALCBS)-l:CLS-PHINT"Digi 

te o ndnero de ";A$CB) 

1540 INPUT VL 

1550 CLSrPHINTVL;CHR3C32) eA9<B) 

; " eguivalem a : " 

1560 IFB>3THEN1590 

1570 FORK^OTOZ: LOCATE 1,6+2*K^A 

-VL«A<B)/A(K+4) :PRINTA:TAB(14J ; 

AS(K+41 :NEXT 

1580 GOTO 1600 

1590 FOHK-0TO3: LOCATE 1.6+2»K:A 

-VL*A(B)/AU) :PRIHTAiTAB(14) iA5 

fK) ^NEXT 

1600 A$=INKEYS:IFA$-""TBEN1600 

1610 IFAS-CHRS(13)THEN RETURN E 

LSE CLS:GOTOl500 

2000 COLOR 15,12, 12:PRINT''Volum 

e":PRINTSTHINGSC39,196) :LOCATE 

S.S-PRINT^Selecione a umdade-" 

2010 FORK-0t06:LOCATE 5,6+2*K:P 

RINTK+1;"- "jUSCK) :NEXT 

2020 B$-INKEY3-lFBS<"l"ORB5>''7* 

THEW2020 

2030 B=VAL(BS)-1 : CLS : PRINT"Dl gi 

te o namero de "iVSCB) 

2040 INPUT VL 

2050 CL3:PRINTVLiCHR$(32) ;VSiB) 

; " eciuivalem a : " 

2060 IFB>3THEN2090 

2070 FORK=0TO2^LOCATE 1,6+2*K^A 

-VL*V(B)/V(K+4) :PniNTA:TA8(l4) ; 

V3(K+4) :NEXT 

2080 GOTO 2100 

2090 FORK=0TO3: LOCATE 1,6+2*K^A 



-VL*V(B)/V(KJ :PRINTA;TABa4) ;U3 

(K) ^NEXT 

2100 AS=INKEYS:TFAS=-"THEN2100 

2110 IFAS-CHR3(13)THEN RETURN E 

LSE CLS:GOT02000 

2500 COLOR 15,13,13:PRINT"Peao" 

:PRINTSTBINGS{39,195) tLOCATE 5» 

3:PRINT"Selecione a umdade:" 

2510 FORK-0TO5: LOCATE 5,6+2-K:P 

RINTK+1;"- ":M3(K) 'NEXT 

2520 BS-INKEYS:IFBS<''1"0RBS>"6" 

THEN2520 

2530 B-VALCB3)-l:CLS:PRINT"Digi 

te o ntimero de " rM3 (B) 

2540 INPUT VL 

2550 CLS:PRTNTUL;CHRS02) ;M3CB) 

i" eQUivalem a^" 

2560 IFB>2THEN2590 

2570 FORK-OT02:^ LOCATE 1.6+2-K:A 

-VL*M(B)/M(K+3) :PRINTAiTAB(14) ; 

MS(K+3) ;NEXT 

2580 GOTO 2600 

2590 FORK=0TO2: LOCATE 1,6+2*K:A 

=VL*M(B)/M(K) tPRTNTA;TAB(14) ;M5 

(K) :NEXT 

2600 AS=INKEYS:IFAS-"-THEN2600 
2610 IFA5-CHRS(13)THEN RETURN E 
LSE CLS:GOT02500 
3000 COLOR 15.14,14:PRINT"Presfl 
ao'iPHINTSTRINGS (39,195) : LOCATE 
5 ,3:PBIKT"Selecione a umdade: 

3010 FOBK = 0TO4: LOCATE 5.6-»-2*K:P 

RINTK+1:"- ";P$CK):NEXT 

3020 BS-INKEy5:IFB5<"l'ORB$>'"5- 

THEN302Q 

3030 B-VAL (B$)-1:CLS iPRINT'Digi 

te o namero de " i PS tB) 

3040 INPUT VL 

3050 CLS:PRINTVLiCHR5t32) ;P3(B) 

; * equivaleni a '- " 

3060 T=0:FOBK-OTO4:IFK-BTBEN30B 



3070 LOCATE 1 ,6+2*T:A=VL»P (K) /P 

(B) :PRINTA;TAB{14) ;PS(K) :T°T+1 

3080 NEXT 

3090 AS^INKEYS:IFAS = "''THEN3090 

3100 IFAS=CHRS {13)THEN RETURN E 

LSE CLS-GOT03000 

3500 COLOR 15,6,6:PRINT'Tecnpera 

tura' : PR INTSTBINGS (39.195) : LOCA 

TE 5,3tPHINT"Converter: " 

3510 LOCATE 5 , ^ : PRINT"Cent :f gfad 

oa para Farenheit (CJ'iLOCATE 5 

.6:PRINT"Farenheit para Centlor 

ados CF)" 

3520 BS-lKXEyS:lFBSO-C"ANDBS<> 

"F''THEN3520 

3530 IFB$^"C''THEN3560 

3540 CLS tINPUT"Graus Farenheit" 

;UL 

3550 LOCATE 3 , 7 : PRINTVL ; " graua 

Farenheit equivalero a ":P&INT( 
UL-32)*5/9:" graua CentlgradOB, 
"iGOTO 3580 

3560 CLS:INPUT"Graua Centfarado 
b";VL 
35 70 LOCATE 3 , 7 : PRINTVL ; " graua 

CentlgradoH equivalem a'tPRINT 
32+VL«9/5;" graus Farenheit." 
3580 A3-INKEYS:IF AS-""THEN3580 
3590 IFAS-CHRS<13)THEN RETURN E 
LSE CLS^GOTO 3500 
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Pag. 26 - legenda a esquerda 
Onde se ie: 


H 1 


Pag. 94 - 2f col- - 4? paragrafo 
Onde se le: 


No TK-80X o Caleidosc6pio... 




No ZX-81 a tecla RAMD fomece RAND 


Leia-se: 


Pag. 7 - 2f col. - 1? parigrafo 


na tela) 


No TK-90X o Caleidosc6pio.„ 


Onde se le: 


Leia-se: 




(so vaJe para o TK'90X) 


No ZX-81, a tecla RAND pode ser usa- 


P^g. 34 - If col. - 4? par^grafo 


Leia-se: 


da para csta fmalidade) 


Onde se le: 


(vaJe para lodos os micros da linha Sin- 




5+10 + 200 + 3000 


clair) 


Pig. 244 - 2f col. - I? programa 


1 Leia-se: 




O programa tamb4mfunciona para o 


' 5 + 70 + 200 + 3000 


Pig. 30 - If col. - programa 


Sinclair ZX-^I. Apenas coloque o coman- 




Substitua aflecha para cima 0) ^o li- 


do GOTO JO da linha 30 em uma linha 


Pag. 53 - If col. - 2? paragrafo 
Onde se ie: 
' .,.coneclor DID.., 
Leia-se: 


nha 60 pela leira 1 


adicionaL 


Pig. 32 - 3f col. - programa 

Substitua aflecha para cima 0) ^o li- 


I — 1 ^H 




...conector DIN.., 


nha ISO pela lelra I 


Pag. 30 - If col- - programa 






Substitua aflecha para cima C) na li- 


Pig. 56 - TITULO DA MAltRIA 


Pag. 39 - If col. - programa 


nha 60 pela letra I 


Onde se le: 


Para funcionar no ZX-8I, coloque tu- 




aritimEtica hexadecimal 


do em maiuscuias e substitua a linha 130 


P^. 32 - 3f col- - programa 


Leia-se: 


por: 


Substitua aflecha para cima 0) na li- 


ARITMfiTICA HEXADECIMAL 


130 PRINT., , ."OUTBO NUHEHO (3/ 
N)7" 


nha 150 pela letra 1 


P&g. 60 - 3f col. - quadro 


Pag. 46 - If col. - programa 


Onde se ie: 


Pig. 41 - If col. - programa 


Adicione a iinha: 


octal tern 8 digitos: 0, 1, 2, 3, 4, 


Para funcionar no ZX-SI, mudetudo 


90 DIM aS(32) 


5, 6, 7 e 8. 


para maiuscuias e faga as seguintes cor- 




Leia-se: 


re^oes no programa: 


Pig. 94 - 2? col. - 3? programa 


octal tem 8 digitos: 0, I, 2, 3, 4. 


25 LET T-0 


Pig. 100 - If col. - 2P programa 


5, 6 e 7. 


26 LET C=0 


O hgotipo ndo se aplica a este 




40 IF N--99 THEN GOTO 80 


programa 


P^g. 245 - If col. 1 1? e 4? paribgrafos 


80 PRINT "MEDIA-" ;T/C 




Onde se li: 


90 STOP 


V§%. 136 - 3f col. - programa 


VAL( = A$)ou VAL( = B$) 




Corrija a Hnha: 


Leia-se: 


Pig. 42 - 2f col, - programs 


200 CLS:PRINT BRIGHT v; PAPER 2; 


VAL(A$) ou VAL(B$) 


Para funcionar no ZX-Si, mtide tudo 
para maiuscuias efaga as seguintes cor- 


INK 6; AT 2; 4; '^MENU PRINCIPAL" 


Pag. 245 - If col. - 4° par^grafo 


refoes no programa: 


Pig. 168 - 3f col. - 2? parigrafo 


Onde se le: 


50 IF G^N THEN GOTO 90 


Adicione: 


B$*-45 MARCOS" 


90 PRINT "KUITO BEM" 


No micro nacional TK-90X, esle co- 


Leia-se: 


92 PAUSE 100 


mando recebeu o nome de SOUND. Por- 


B$ = '^45 MARCOS'* 


94 GOTO 10 


tanto, se voce tem um TK-90X, substitua 
lodas as ocorrencias do comando BEEP 


. Pag. 260 - 1? coh - 5?, 6? e 7? pardgrafos 


-Pig. 43 ' If coL - 4? parigrafo 


pelo comando SOUND, nas linhas 8010 


e Pag, 260 - 2f col, - 2? parigrafo 


Adicione: 


(programas da pagina 169, lfcolunae3f 


Onde se ie: 


No programa para o ZX-81, retire a 


coIunaX 8010 e 8015 (programa da pdgi- 


CHR$ 


Hnha 94, 


na 170, If coluna) e 400 (pagina 170, 2f 




Leia-se: 




coluna). 




CHRS 


Pig. 43 - If col. - 2? programa 








Para funcionarno ZX-81, mudetudo 


Pig. 213 - 3f col. - 1? parigrafo 


Pig. 290 - If col, - ultimo parigrafo 


para maiuscuias e separe as instrugoes da 


Oi^e se le: 


Pag. 291 - 2f col. - ultimo par^grafo 


linha 1 10 em duas linhas. 


Os comandos Id de, 16384 e Id hi, 




Onde se li: 




1,16385 „ 




...OS comandos GETS e 


P^. 77 - If col. - 1? programa 


Leia-se: 




Leia-se: 


Para funcionar no ZXSI, divida a li- 


Os comandos Id de, 16384 e Id hi, 


' ,..os comandos GET e 


nha 15 em: 
15 INPUT A 


16385.., 




Pig, 294 - 1? coL - 2? parigrafo 


16 INPUT B 


Pig. 244 - 2f col. - If programa 




Onde se le: 




programa tambem funciona para o 




...poderao ser chocados,.. 


Pig. 78 - 2f col. - programa 


Sinclair Spectrum 




Leia-se: 


Para funcionar no ZX-81, divida em 






...poderao ser checados... 


vdrias linhas os comandos separados por 
dois pontos, nas linhas 130, 140, 150 e 
160. 


, 


■ 






Cominiia na pr^mo numera 







PROGRAMAQAO BASIC 

Conhepa melhor os comandos gr^ficos de seu computador e 
saiba explorar plenamente os recursos disponfveis. 

C6DIG0 de MAQUrNA 

que faz um programa rastreador. Como detectar e corrigfr 
OS erros de um programa longo. 

PROGRAMAQAO BASIC 

Como tirar o m^ximo do comando EDIT e facilitar a edi'cao de 

programas no TRS-BO e no TRS-Color. 

PROGRAMApAO DE JOGOS 

Invente aventuras originals usando como base 
OS programas de INPUT, 




ot corAWTi^ooMS 








